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A NUMERICAL ANALYSIS OF THE TRANSIENT RESPONSE 


OF AN ABLATION SYSTEM INCLUDING EFFECTS OF 
THERMAL NON-EQUILIBRIUM, MASS TRANSFER AND CHEMICAL KINETICS 

by 

Ronald Keith Clark 
(ABSTRACT) 

The differential equations governing the transient response of a 
one-diraensional ablative thermal protection system undergoing stagnation 
ablation are derived for the general case of thermal non-equilibrium 
between the pyrolysis gases and the char layer and kinetically con- 
trolled chemical reactions and mass transfer between the pyrolysis 
gases and the char layer. The boundary conditions are written for 
the particular case of stagnation heating with surface removal by 
oxidation or sublimation and pyrolysis of the uncharred layer occurring 
in a plane. 

The governing equations and boundary conditions are solved 
numerically using the modified implicit method (Crank-Nicolson method). 
Numerical results are compared with exact solutions for a number of 
simplified cases. The comparison is favorable in each instance. 

Numerical results are presented for a typical ablation system 
subjected to a sqi^are heat pulse. The effects of chemical reactions 
and mass transfer are pronounced. 
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CHAPTER I 


INTRODUCTION 

Space vehicles reentering the earth’s atmosphere or entering 
other planetary environments are subjected to severe aerodynamic 
heating. Several methods of protecting the interior of the spacecraft 
have been proposed. Conditions resulting in high aerodynamic heating 
rates require use of ablation materials for thermal protection. The 
charring ablator thermal protection material (see schematic diagram. 
Fig. 1) has been found most effective as a thermal shielding material 
for a wide range of heating conditions. In Ref. 1 Swann discusses 
weights and efficiencies of various thermal protection systems for a 
range of heating conditions. 

The favorable performance of the charring ablator is largely 
attributable to the tough char layer which forms on the surface of the 
material as it is heated. This char layer is capable of withstanding 
very high temperatures, and during reentry a significant amount of the 
total heat input at the surface is radiated to the environment by the 
high temperature char surface. Gases generated in the pyrolysis zone 
of the charring ablator percolate through the high temperature porous 
char layer to the surface. As these pyrolysis gases flow through the 
char layer, they absorb energy by increasing in temperature and under- 
going chemical reactions. 

The performance of ablative thermal protection systems has been 
the subject of extensive research over the past decade. Refs. 2, 3, 
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Figure 1.- Schematic diagram of charring ablator. 
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and 4 by Chapman, Dow and Tompkins , and Chapman and Dow are typical 
of the many reports presenting results of experimental evaluation of 
the ablative performance of thermal protection materials. The experi- 
mental programs whose results are reported in Refs. 2, 3 and 4 
involved testing candidate thermal protection materials in arc-heated 
tunnels to compare their performance as thermal protection systems for 
reentry applications. 

Many analytical reports have been devoted to developing theories 
of ablation. In Refs. 5, 6 and 7 Roberts considers the effects of 
mass transfer processes near the stagnation point on heat transfer to 
two-dimensional or axisymmetric bodies. Ref. 5 presents a simplified 
analysis of mass transfer cooling near the stagnation point for two 
dimensional or axisymmetric bodies, showing the reduction in heat 
transfer in terms of the properties of the cooling fluid. Ref. 6 
presents a simplified analysis of the shielding mechanism which reduces 
the stagnation point heat transfer when ablation takes place at the 
surface. Ref. 7 presents a theoretical study of the shielding mechanism 
whereby the rates of heat transfer are reduced near the stagnation 
point of two-dimensional and three dimensional bodies when melting 
and vaporization occur simultaneously. 

A large body of literature exists which describes the experimental 
and analytical effort directed toward studying the performance of 
ablative thermal protection systems including the interaction of the 
ablator with the boundary layer. In Ref. 8 Scala and Gilbert present 
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a theoretical analysis of the overall response of a char-forming 
plastic during hypersonic flight* The rate of pyrolysis of the plastic 
is calculated by means of a chemical kinetid equation. A mathematical 
description of the gas flow through the char is included. Hypersonic 
boundary layer mass transfer effects are also considered in the over- 
all energy balance. Results are presented for the forward stagnation 
line of an unyawed cylinder in hypersonic flow undergoing quasi-steady 
ablation. 

An analysis of the effects of environmental conditions on the per- 
formance of charring ablators is presented in Ref. 9 by Swann, Dow and 
Tompkins. Equations relating different environments which produce the 
same material response are derived for the case of surface removal by 
oxidation. The effects of environmental parameters on the thermal 
performance of ablators are examined. 

In Ref. 10 Swann presents an analysis of the performance of char- 
forming ablators. It includes a derivation of the equations governing 
the response of charring ablators subject to char removal by diffusion 
controlled oxidation. Results are presented for the case of a constant 
enthalpy level and the effects of various material properties and 
environmental parameters are discussed. 

A study of the effects of oxidation on the performance of charring 
ablators is presented in Ref. 11 by Dow and Swann. Char-forming 
ablation specimens were exposed to high energy gas streams of nitrogen 
and different oxygen concentrations. Surface removal data from these 
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tests were correlated in terms of a diffusion limited oxidation 
mechanism. An energy balance calculated for specimens exposed to 11.5 
percent oxygen concentration showed that the heat input from combustion 
is a significant part of the total heat input. 

Further attempts at defining the effects of environment and 
material properties on the performance of ablators are discussed by 
Clark in Ref. 12 and Swann, Brewer and Clark in Ref. 13. 

Because of the many complex factors involved, the usefulness of 
developing computer simulation programs as a practical tool for solving 
ablation problems was obvious early in the previous decade. Early 
analyses of ablative thermal protection systems neglected or greatly 
simplified the complex processes and rate controlling mechanisms that 
occur in charring ablation systems. Ref. 14 by Swann and Pittman 
represents an early numerical treatment of an ablative thermal protec- 
tion system. It presents a derivation in finite difference form of 
the energy transfer equations for a charring ablator system in which 
thermal equilibrium exists between the char layer and the pyrolysis 
gases. Removal of material at the surface by chemical and/or mechani- 
cal processes is achieved by modelling any of the following mechanisms: 

1) ablation at a given temperature 

2) material erosion as a given function of time 

3) material erosion such that the char thickness is a given function 
of time. 

Pyrolysis of the uncharred material occurs at a single given tempera- 
ture, so that a well-defined interface exists between the char layer 
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and the uncharred layer. Reduction of aerodynamic heating at the sur- 
face resulting from injection of pyrolysis gases into the boundary 
layer is accounted for by using a second-degree approximation to the 
boundary layer solutions for air-to-air injection. The effect of 
chemical reactions involving the pyrolysis gases as they flow through 
the char layer is included by using an effective specific heat for the 
pyrolysis gases which is adjusted to account for endothermic and exo- 
thermic chemical processes. Ref. 14 presents some typical results from 
computer calculations and some comparisons with experimental results. 

In Ref. 15 Kratsch, Heame and McChesney present a sound effort at 
developing and experimentally verifying a theoretical model of a 
charring ablation thermal protection system. They present the coupled 
energy and mass transfer equations for a two-component resin-fabric 
composite with a complete description of the chemical processes in- 
volved. However, it invokes the assumption of thermal equilibrium 
between the char layer and pyrolysis gases. It also assumes steady 
state conditions exist. Experimental and computed results are presented 
for comparison. 

Ref. 16 by Swann, Pittman and Smith presents what is perhaps the 
most widely employed numerical ablation analysis. Basically it repre- 
sents a greatly improved version of the earlier analysis by Swann and 
Pittman (Ref. 14). The improvements include the following: (1) 

treatment of surface removal by chemical oxidation with consideration 
of rate controlled and diffusion controlled regimes; (2) pyrolysis 
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of the uncharred layer as an exponential function of temperature, and 
(3) transformation of governing equations to a moving coordinate 

system to accommodate changes in location of the surfaces of the abla- 
tor, However, their analysis also invokes the assumption of thermal 
equilibrium between the char layer and pyrolysis gases. Ref. 16 pre- 
sents a comparison of computed results with exact solutions for 
simplified cases. The agreement between the numerical and exact 
solutions is good. 

More recently strong interest has been directed toward the chemical 
processes occuring within the char layer of an ablation system. The 
experimental work by Clark which is reported in Refs. 17 and 18 
demonstrates the intensity of these processes. This work also shows 
that the pyrolysis gases and char layer are not always in thermal 
equilibrium. Ref. 19 by Brewer, Stroud and Clark shows a thirty 
percent variation in thermal protection requirements for a typical 
reentry vehicle depending on whether the pyrolysis gases in the char 
are in chemical equilibrium or frozen as they flow from the pyrolysis 
zone to the surface. 

This report presents an analysis of the transient response of a 
one-dimensional ablative thermal protection system undergoing 
stagnation ablation. The differential equations governing heat and 
mass transfer are derived out for both the char layer and the 
pyrolysis gases flowing through the char layer. These equations are 
coupled through a convective heat transfer term which represents 
energy transferred from the char layer to the pyrolysis gases. The 
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differential equation governing the pressure distribution in the char 
layer is formulated. Chemical rate equations describing the chemical 
reactions occurring in the char layer are formulated. 

The boundary conditions are written for the particular case of 
stagnation heating with surface removal by oxidation and/or sublimation, 

i 

and temperature dependent pyrolysis of the un charred material occurring 
in a plane. 

The governing equations and boundary conditions are solved 
numerically using a digital computer. Numerical solutions are obtained 
for a number of simple problems where exact solutions are available 
to test the integrity of various parts of the total program. Results 
are presented for a body subjected to stagnation heating with surface 
removal by oxidation and finite-rate chemist ry occurring in the char 
layer to illustrate the form of results obtained using this tool. 

A discussion of the use of this program in design of thermal protection 
systems is included. 



CHAPTER II 


GOVERNING EQUATIONS 

A charring ablator system can be described by three distinct 
layers as shown in Fig. 1. These layers are the char layer and the 
uncharred material, which make up the ablator, and the heat sink and 
substrate insulation which are behind the ablator. The char layer 
is exposed to aerodynamic and/or radiant heating at the front surface. 
The surface of the char layer may also interact with the external 
boundary layer resulting in erosion of the char layer by chemical 
reactions and/or mechanical means. The region separating the char 
layer and the uncharred material is labeled the pyrolysis zone and 
is assumed to be a plane. The uncharred material undergoes pyrolysis 
at this interface at a rate given by an empirical Arrhenius type 
relation producing gaseous pyrolysis products and a porous char layer. 
The gaseous products absorb energy and undergo chemical reactions 
as they flow through the porous char layer to the front surface where 
they are injected into the boundary layer. From this discussion it 
is seen to be necessary to consider the three layers separately in 
deriving the differential equations which govern the behavior of an 
ablative system. 

The char layer consists of two phases - the porous solid residue 
or char and the gaseous pyrolysis products, or pyrolysis gases, flowing 
through the porous residue. The porous residue experiences heat con- 
duction and mass and heat transfer from interaction with the flow of 
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pyrolysis products. The pyrolysis products flowing through the porous 
residue undergo chemical reactions in addition to interacting with the 
solid. The uncharred layer and the substrate insulation experience 
heat conduction only. 


Char Layer Equations 

The char layer requires two differential equations for conserva- 
tion of energy - one for the char and one for the pyrolysis gases. 

Mass transfer processes affecting the char must be considered to obtain 
an equation for variation of the char porosity. The pyrolysis gases 
also require differential equations for conservation of chemical 
species, total mass and momentum, and chemical reaction rate equations. 

Char temperature differential equation . -The energy conservation 
equation for the char is obtained by considering a control volume V 
within the char layer. The char occupies a fraction of this volume 
equal to (1 - n) where X] is the char layer porosity. The energy 
conservation equation applied to the solid phase of the char layer 
states that the rate of change of energy contained in the solid phase 
of the char within the control volume V equals the sum of the net 
ratio of energy transfer into the solid phase by conduction heat 
transfer, convection to the pyrolysis gases, mass transfer from the 
pyrolysis gases to the solid resulting from homogeneous chemical 
reactions and heterogeneous chemical reactions (reactions occurring 
on the solid surface) , heats of reaction given up by the solid in 
heterogeneous chemical reactions involving the pyrolysis gases and 
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the solid, radiation of energy to the solid and energy produced within 
the solid by any internal source. 

The total energy contained in the solid phase of the char within 
a unit volume of the char layer is equal to the product of the theoreti- 
cal solid density, enthalpy and solid phase volume fraction which is 
(1 - n) . The terms of the char energy equation may be written as 
follows : 

Non-stationary volume term 

' v h 1(1 - n) W dV 

Conduction heat transfer term 

- / s q g • n ds 

Convection to the pyrolysis gases 

- 'y H A (T s - T) dV 

where the volumetric heat transfer coefficient for convective energy 
transfer from the char to the pyrolysis gases is given by Bland in 
Ref. 20 as 


K h v 

H = E 
A 


N. 


Pr i 


P,C 

1 PI 

M. 

l 


(2-1) 
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Mass transfer from the pyrolysis gases to the solid resulting 
from homogeneous chemical reactions 


/ v n r s H(T) S dV 


Mass transfer from the pyrolysis gases to the solid resulting 
from heterogeneous chemical reactions 


f v r| r. H dV 
V hs s 


Heats of reaction given up by the solid in heterogeneous chemical 
reactions 


- / v n £ r£ r) AH (r) dV 
r 


Radiation of energy to the solid 


/ v (1 - H)(A - e) dV 

Energy produced within the solid by any internal source 

/ v (1 - n> q”’ dv 


Combining these terms in equation form gives 
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Ar It 1(1 - "> », dV - - / s ? s • n dS - ; y h a (T s - T) dV 

+ / v n r s HCT S ) dV + ; v n r hs dV - / y n I r< r) AH (r) dV 

+ / v (l - n) (a - e) dV + / v (1 - n) q;’ • dV (2-2) 

which is a statement of conservation of thermal and chemical energy 
for the portion of a control volume in the char layer occupied by 
solid. The energy term associated with stresses has not been included 
since that term is negligible with respect to other terms. The use 
of enthalpy in this equation is consistent with its nearly universal 
usage as a measure of the energy content of solids; however, implicit 
with its use is the assumption that enthalpy and internal energy are 
equal. This assumption is valid for incompressible solids. 

The term associated with the heats of reaction for heterogeneous 
chemical reactions is obtained by assuming that the heat of reaction for 
each reaction is supplied by the char. As an example, consider the r-^- 
heterogeneous chemical reaction which is the oxidation of solid carbon 
to form carbon monoxide. The stoichiometric equation representing this 
reaction is 

°2 + 2C g + 2C0 (2-3) 

and the heat supplied to the reaction is just the difference in 
enthalpy of the products and the reactants, or in equation form 



14 


AH (r) = 2 H(T S ) C0 - H(T)0 2 ~ H(T s ) Cj 


(2-4) 


Applying Gauss's Theorem to the surface integral to obtain a 
volume integral results in the following equation 

Ar < Id - "> e s h s ) + $ • ?, + « A (t, - t) - n r s iui) s - n r hs 5 S 


+ nl rjf r) AH (r) - (1 - n)(A - e) - (1 - n) q'"} dV = 0. (2-5) 

rk 

r 


This equation is true for any volume V; therefore, the integral can 
vanish only if the integrand vanishes everywhere. Thus, the differen- 
tial form of the char energy equation is 


It m - »> p s V + ? + h a (t s - T) - 11 r s H(T s> - n r hs H s 


+ n i r^ r) AH (r) - (1 - n)(A - e) - (1 - n) q"' - o. 
n 
r 


(2-6) 


The non-stationary tern is expanded to obtain 


SH 


3P. 


tr m - 1> H s > - (1 - n) ». 5r + (1 - "> H s it - 


P. K rQ.. (2-7) 
s s at 


But the theoretical density of the char is constant; therefore. 


9H 

h [<1 - ") <>.V " a - n) P s ar - P 8 i. U- ■ (2-8) 
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The char layer energy equation now takes the form 


(l - n)P s 



- H a (T s - T) + n r s H(T) s + n r hs H s 


-HI r< r) ah ( 4) + (1 - n)(A - e) + (i - n)q;” + p s h_ . (2-9) 

r r s s s 3t 

It is more convenient to work with temperature than enthalpy. The 
char enthalpy may be written as 

/\ T /v 

H=/ S C dT+H . (2-10) 

s 0 P s s 

s o 

The time rate of change of char enthalpy is obtained by differentiating 
Eq. 2-10, 


8H 

C 

9t" 


= — / 
3t 0 


: dT + H . 

p s 3t s 
s o 


( 2 - 11 ) 


The derivative of the integral appearing here is obtained by applying 
the Leibnitz Rule for differentiation under the integral sign as in 
Hildebrand (Ref. 21). Thus Eq. 2-11 becomes 


A 



2-S 

3t p 

s 


dT 

s 



3T a ^ 

S 4. ^ 11 

3t + 3t s 


» 


( 2 - 12 ) 
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but C is not a function of time and H is constant so 
PS s„ 


3H ^ 3T 

s _ r s 

9t p 7t~ • 
s 


(2-13) 


Combining Eq. 2-13 and Fourier's conduction equation, 


q = - k ^ T , 

*e £5 o ' 


(2-14) 


with Eq. 2-9 gives the differential equation for conservation of energy 
in the char layer as 


< l - "> »s C p 3T ■ ^ • (k S ^ V - H A <T S - T > + 1 r s H(T )s 
s 


+ n r, H - r\ Z r^ AH^ + (1 - n) (A - e) 
hs s n 

r 


+ (l-n) q;” + P s H s |a 


(2-15) 


The specific quantities C , H (T) , AH, and H and the chemical 

p g s j s 

production terms r and r, may be expressed in terms of the 

s h s 

respective mole quantities and Eq. 2-15 becomes 


p C 3T 

<! - n> -jP* 3T = ^ • < k s $ V - H (T s - T) + n R, H(T) 
s 


+ n R H - r\ Z AH^ + (1 - n)(A - e) 

ns s n 

r 

p H - 

+ (1 - n) a" ' + — — i 

u n; q s M 3t 

s 


(2-16) 
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Char porosity differential equation ,- The porosity differential 
equation results from consideration of mass transfer between the char 
and the pyrolysis gases* Mass transfer between these two phases re- 
sults from two sources. One source is the solid material formed by 
homogeneous chemical reactions in the pyrolysis gases. This solid 
material is deposited from the gas phase to the solid phase. The other 
source is the solid material formed or consumed by heterogeneous 
chemical reactions which occur at the char-gas interface. 

The rate of formation of solid material by homogeneous chemical 
reactions in the pyrolysis gases is determined from the 

appropriate chemical reaction rate equations to be R (moles solid 

s 

per unit volume of gas per unit time). The product of the char porosity 
(void fraction of the char layer) , the molecular weight of the solid, 
and the rate of formation of solid gives the rate of material deposited 
in mass units per unit volume of char layer. Or, in equation form 

Mass Rate of Deposition = r\ M R . (2-17) 

s s 

This deposit occupies a volume equal to — volume units per unit mass 

^s 

and this volume represents a decrease in the porosity of the char 
layer. Thus the time rate of change of char porosity due to homo- 
geneous chemical reactions \ is 



hom 


M R 
s s 


(2-18) 
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Similarly, the rate of formation of solid by heterogeneous chemi- 
cal reactions, R^ g , is determined from the appropriate 
chemical reaction rate equations. Thus the time rate of change of 
char porosity due to heterogeneous chemical reactions is 

fe) h - - " r “hs • (2 - 19 

s 

Summing Eqs. 2-18 and 2-19 gives the time rate of change of char 
layer porosity as 


I? - - ^ <R hs + V • < 2 ' 20) 

S 

Pyrolysis gas energy differential equation .- The energy conserva- 
tion equation applied to the fluid phase of the char layer states that 
the time rate of change of internal and kinetic energy contained in 
the pyrolysis gases within the control volume V equals the sum of the 
net rates of convection of internal and kinetic energy transferred 
into the pyrolysis gases due to the mass average velocity, conduction 
of energy in the pyrolysis gases, radiation of energy to the pyrolysis 
gases , work done on the pyrolysis gases by external forces , work done 
on the pyrolysis gases by pressure forces, work done on the pyrolysis 
gases by viscous forces, energy transfer to the pyrolysis gases by 
convection from the char, energy loss by the pyrolysis gases due to 
mass transfer and energy gained by the pyrolysis gases due to 
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heterogeneous chemical reactions. The terms of the pyrolysis gas 
energy equation may be written as follows: 

Non-stationary volume term 

; v ft ln p(l ^ + \ v2)1 dV 

Convection by mass average velocity 

(U + -7 V 2 ) p v • n dS 
0 Z o 

where v is the velocity of the pyrolysis gases in the char 
v^ is the superficial velocity (volume rate of flow through 
cross-sectional area of the char plus pyrolysis gases). 

Conduction term 


layer and 
a unit 



• n dS 


Radiation term 


/ n(A’ - e') dV 


Work by external forces 


/ v n s n. . g ± dV 
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where ik is a mass flux vector equal to the sum of the mass flux due 
to mass average velocity and the mass flux due to diffusion, or in 
equation form 


n. 

x 


P, V + y 


Work by pressure forces 


- A, P v • n dS 
S o 

Work by viscous forces 

/g [t • V Q ] • n dS 


Convection from the char 


( 2 - 21 ) 


/ v H a <T s - T) dV 

Energy loss by mass transfer resulting from homogeneous chemical 
reactions 


- / v n r s H(I) S d» 


Energy loss by mass transfer resulting from heterogeneous chemical 


reactions 
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- / nr, H dV 
V hs s 


Energy gain resulting from heterogeneous chemical reactions 


; v n Z r< r) AH (r) dV . 
r 


Combining these terms in equation form gives 


/ v |j- [n p(U + j v 2 )] dv = 


- / s (U + -i v 2 ) p v o • n dS - /g q . it dS 
+ / v n(A' - e')dv + / v n ^ n . • g. dV 

- / c P V . n dS + /„ [T . V ] • n dS 

So So 

+ / v H a (T s - T) dV - / v n r g H(T) s dV 

- /„ nr, H dv + /„ n E r^ r) AH^ dV . (2-22) 

V hs s v h 

r 

Applying Gauss’ Theorem to convert the surface integrals to 


volume integrals gives 
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/ y { It [n p( “ + 2 v2)] + ^ * [OJ + J V 2 ) p v o ] 

+ ^ . q - n (A* - £ f ) - T] Z • g^ + ^ • P y Q 

- 5 . [!.$,]- H a (T s - T> + n r s B(T) S + n r hs S s 

-nl AH (r * } dV • 0 . (2-23) 

r 

This equation is true for any volume V; therefore, the integral can 
vanish only if the integrand vanishes everywhere. Thus the 
differential form of the pyrolysis gas internal and kinetic energy 
equation is 

■|jr In p(U + J V 2 )] + ^ • [(U + j V 2 ) P V Q ] + ^ • q 

- n(A' - e) - n 2 it. . g. + ^ • p v 

^ 1 1 O 

- ? . (t • v o ) - H A (X, - T) + n r s i(i) s + n r hs ii s 

-nl r£ r> M^ r) - 0 , (2-24) 

r 

This equation can be simplified by subtracting from it the 
equation of mechanical energy. The equation of mechanical energy for 
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a fluid flowing through porous media results from taking the scalar 
product of the fluid velocity with the equation of motion. The equation 
of motion for a fluid flowing through porous media states that the 
time rate of change of momentum contained in the pyrolysis gas within 
the control volume V equals the sum of the net rates of momentum 
increase resulting from momentum convection by mass average velocity, 
pressure force per unit volume of pyrolysis gases, viscous transfer 
per unit volume of pyrolysis gases and gravitational force per unit 
volume of pyrolysis gases. In equation form 


/ w (ri p v) dV = - / (p v) v • n dS - / r\ P 5 • n dS 
V ot SO S 

+ /g n T • n dS 4- / n P g dV . (2-25) 

Gauss’s theorem may be applied to Eq. 2-25 to convert the surface 
integrals to volume integrals giving 

/y { ^ (r) P v) + ^ • p v v q + ^ r] p 

-^•riT-npg}dV=0 (2-26). 

This equation is true for any volume V; therefore, the integral can 
vanish only if the quantity in brackets vanishes everywhere. Thus the 
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differential form of the equation of motion for flow through porous 
media is 


(n p v) + ^ • 


p v v o 


+ ^ n p 


- $ 


n t - n p g 


(2-27) 


Forming the scalar product of the pyrolysis gas velocity with 
Eq. 2-27 gives the equation of mechanical energy for the pyrolysis 
gases as 


1 iL 

2 3t 


(n p v ) + ■=■ n 


1 2 9p 1 2 3n L 1 A 

+ t n v ■^• + tpv -Tr + ^v. 


at 2 M v at T 2 


p V V 


+ I v 2 v Jp+ipvM.; + ^ • P V 
2 o 2 r o o 


- n 


P $ • v - $ • [x»v]+nT:^* 


- n p v g = o 


(2-28) 


Equation 2-28 is subtracted from Eq. 2-24 to obtain the thermal 


energy equation of the pyrolysis gases as 
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n p g + p(i - i v 2 ) £ + n( J . i v 2 )( m + p ? . 


Dt 


Dt 


+ n p 


^ • v — n t : V v - r| Z j . • g. + V • 


. 1 
1 


- n (A' - £’) - H a (T s - T) + n r s H(T) s + n r hg H s 


n E r< r) AH (r) = 0 . 
r ^ 


(2-29) 


Equation 2-29 can be simplified somewhat by expressing the 
internal energy in terms of the enthalpy and the state variables 
pressure and density and by making use of the mass conservation 
equation. The internal energy-enthalpy relation 


U = H - P/p (2-30) 


yields 


Dt Dt p Dt + 2 Dt 

P 


(2-31) 


Chemical species continuity equation .- The chemical species 
continuity equation applied to the pyrolysis gases flowing through 
the char layer states that the time rate of change of mass of some 
species within the control volume V equals the sum of the net rate 
of mass of that chemical species transferred into the control volume 
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by the mass average velocity and mass diffusion and the net rate of 
formation of that chemical species by chemical processes. Writing this 
equation in integral form gives 


/y 01 P t > dV - 


- /- p. v • n dS 
bio 


+ / v n r dv - /g T1 • n dS 


( 2 - 32 ) 


Applying Gauss* s Theorem to convert the surface integrals to 
volume integrals gives 


; v [ lr (n p i } + ^ • (p i v o* “ n r T + $ • n j ± ] dv = o 


( 2 - 33 ) 


which yields the chemical species conservation equation 


(n p ± ) + ^ • (p ± v Q ) + ^ • n j ± - n r T = o .. 


( 2 - 34 ) 


Total mass conservation equation ,- The total mass conservation 
equation is obtained by summing the chemical species conservation 
equation over all species. Thus 


jr (n p) + $ • (p v ) - n £ r - o . 
9t ° i t i 


( 2 - 35 ) 
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Equations 2-29, 2-31 and 2-35 are combined to give the pyrolysis 
gas energy equation in terms of enthalpy as 


„ DH n DP , . Dn 12. _ 

n p m n 5F + p Df - n <H - 2 v > E r T. 


+ tl i J 5 V t II J j, *g -?'q+n(A' - £') 
i 1 


+ H A <T s - T > - " r s H(T) S - n r hs "s 


+ n £ r' r) AH (r) 
n 
r 


(2-36) 


It is more convenient to work with the pyrolysis gas energy 

A A 

equation written in terms of C rather than H. The desired form 

P 

of the pyrolysis gas energy equation is obtained by combining Eq, 

/V 

2-36 with the Gibbs equation written in terms of H and the First Law 
of Thermodynamics. 

The Gibbs equation for a system in equilibrium as written by 
Hatsopoulos and Keenan (Ref. 22) is 


dH = T dS + V d P + Z y i d(p i /p) . (2-37) 

i 


It will now be assumed that , although the pyrolysis gases are not in 
true equilibrium, there exists within small mass elements a state of 
local equilibrium for which a bulk gas temperature can be defined and 

A 

for which the local entropy S is a well-defined function of the 
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various parameters which are necessary to define the macroscopic state 
of the system completely. With this assumption Eq. 2-37 becomes valid 
for a mass element followed along its center of motion, thus 





T — + V — + 
Dt DC 


P i W (P i /p > 


(2-38) 


Equation 2-38 can be made more useful by expressing entropy in 

terms of P, V and T. Assuming the system is composed of a mixture 

of thermally perfect gases the entropy may be expressed as a function 
Pi 

of P, T, and — - , or 


S - S (P, T, p 1 /p) (2-39) 


which yields 


dS ~ ' ( I >i. Pi /p dp + < I >p, Pi /p dT 


* # 4 , 


d(P i /p) . 


(2-40) 


Writing Eq. 2-37 in terms of specific heat 


dS 


C 

= -£ dT 
T 


| dP - £ Z y ± d(p ± /p) 


(2-41) 
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Equating the coefficients for dT in Eqs. 2-40 and 2-41 gives 


A 



c 

= — E- . 

P,P i /p T 


(2-42) 


The coefficient of dP in Eq. 2-40 is replaced by its equivalent from 
the Maxwell relation 


( — ) 

v 3P ; T,p./p 


( & ) 

1 9T ; P,P i /p 


(2-43) 


Equations 2-40, 2-42 and 2-43 are combined to give a differential 

A 

entropy expression in terms of p } V and T. 


dS = ^ dT 


3V 


3S 


( 3T ) P,p i /p dT + ^ ( 3 p i /p ^P,T d(p i /p) 


(2-44) 


This equation may be written for a mass element followed along its 
center of motion as 


DS = DT 
Dt T Dt 


( dp E , as 

' a>r /« « r»- T ° v 


3T / P,P i /p Dt i 9 p ± /p P,T Dt VK i 


(P,/P) • (2-45) 


Equation 2-45 may be combined with Eq, 2-38 to give 


™ . £ ro J dp _ , 3v m 

DC > Dt Dt * ' 3T 'P,p /p Dt 


+ E [y ± + T ( 9 p^ /p ) p>T l Dt (P i /P) 


(2-46) 
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The summation term in this equation can be reduced by considering 
the relation between partial properties. The entropy of a system is 
written as 


S = Z(p i /p) S ± . (2-47) 

i 


From Eq. 2-47 we have that 


dS 



dS. + Z S. 
1 i 1 



(2-48) 


Since entropy of a pure substance may be expressed as a function of 
P and T, Eq. 2-48 written for a constant pressure and temperature 
process is 


A A 

dS = I S 1 d(P ± /p) . 
i 


(2-49) 


Thus 


^ 'l = c 

8 p ± /p ; P,T b i • 


The partial specific Gibbs function is defined as 


A 



( — ) 

K 8M ± 'p,T “ 


(2-50) 


(2-51) 
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But 


G = H - IS 


(2-52) 


or 


G = E H, (H, - TS ± ) . (2-53) 

i 

Equation 2-53 is combined with Eq. 2-51 to give the partial specific 
Gibbs function as 


p. s H ± - T S, . (2-54) 


Equations 2-50 and 2-54 are combined with Eq, 2-46 to satisfy the 
First Law of Thermodynamics applied to an element of mass near equili- 
brium followed along its center of motion. In equation form 


A 



c 

p 


+ v^- 

Dt Dt 


- T 


A 



DP 

P,P i /p Dt 


+ Z 

i 


H t £ <P ± /P) 


(2-55) 


Equation 2-55 is combined with Eq. 2-36 to give the pyrolysis 
gas energy equation in terms of C as 
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” DT ,9 Jin p x 

n P c — = - n ( t - o" ■ B 


p Dt 


9 Jin T' P,P i /p Dt 


DP r „ D , , s 

n P T. H. — ■ (p./p) 


i Dt i 


+ P m _ n ( H _ I V 2 ) E r T +nT:^v + n^T i 

i i i 


- $ . q + n (A' - £') + H a (T g - T) - T1 r g H(T), 


n r H 
hs s 


+ n £ r (r W r) . (2-56) 

r h 

The derivative of — can be expanded and combined with the 

P 

chemical species and total mass continuity equations (Eqs. 2-34 and 
2-35) to give 


D / / N 1 

Dt <P 1 /P) = p \ 


- -3L? 

n P 


J i 


_!i s 

p 2 i 


T. 

l 


(2-57) 


Equation 2-57 is combined with Eq. 2-56 and the specific 

A A A A 


quantities , H, , and H^CT) and the chemical production 

terms r. , r and r are written in terms of their respective 
i* hs s r 

mole quantities to give the pyrolysis gas energy equation in terras 


of mole quantities as 
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n i 


f i ,JBL1 SL 
M. Dt 
i x 


/ ^ P v DP r TT TJ 

■ n ( Hn T h,x. Dt " n . H i R T. 

’ X X X 


+ J H, ^ ' J, + P + ~ n v 2 E R M. 
x x Dt 2 . T. x 

1 11 


J. 


+ n t : ^ v + n ^ • g. - ^ • q + n (A f - e f ) 

i i X 


+ H. (T - T) - H R H.(T) 
As s s 


- n 


R, H 
as s 


+ n Z AH^ 

n 

r 


(2-58) 


Pyrolysis gas pressure differential equation ,- The basic law 
governing the velocity of fluids flowing through porous media is the 
phenomenological law of Darcy which states that the rate of flow through 
porous media is directly proportional to the pressure gradient causing 
flow. Darcy’s law written in equation form as in Scheidegger (Ref. 23) 
is 


v 

o 



(2-59) 


or 



P . 


v 


(2-60) 
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Equation 2-59 may be combined with the total mass conservation 
equation to give 


<n p) - » • ( ^ ? p ) - n i ^ m ± 


= 0 


(2-61) 


The equation of state for the pyrolysis gases, 


P = p R T/M 


(2-62) 


and the identity 


P $ P = j $ P 2 


(2-63) 


are used in Eq. 2-61 to give the differential equation for pyrolysis 
gas pressure as 


^ • V p 2 + ^ ( ^ ) “VP 2 
KM y 

2yR T . 

- [ -§7 (np) - M i ] = 0 . (2-64) 

KM i i 

Chemical reaction rate equations .- The rate of chemical reactions 
occurring within the char layer must be computed using an appropriate 
chemistry model. The model considered here treats homogeneous and 
heterogeneous reactions. The rate of removal of chemical species by 
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homogeneous reactions is governed by the Law of Mass Action which states 
that the rate of removal of a chemical species is proportional to the 
product of the concentrations of the reacting species where each and 
every chemical species concentration is raised to a power equal to its 
stoichiometric coefficient. In equation form, the Law of Mass Action 
as written by Clarke and McChesney (Ref, 24) for a one-step chemical 
reaction described by the following stoichiometric relation 

Z v! A + Z v! f A. (2-65) 

i i 1 1 1 i 


is 


reaction rate = k II [A ] 


v ! 

i 


> 


( 2 - 66 ) 


where the reaction rate constant k is considered to be independent 
of the concentration of chemical species and dependent on temperature. 
The reaction rate constant is given by 


k = A T S exp (-B/T) 


(2-67) 


where A and B are the frequency factor and activation energy for 
the reaction. 

Simultaneous forward and reverse chemical reactions are repre- 


sented by 
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(r) 


E vf r) A. I E V r) A. 

i 1 1 1 

k (r) 

r 


( 2 - 68 ) 


where 


r = 1,2, m independent reactions^ 


The rate of forward reaction for the chemical reaction represented by 


the equation is 


rate of forward reaction = 


k< r) n [A.] 1 


(r)' 


( 2 - 69 ) 


and the rate of reverse reaction is 


rate of reverse reaction = 


k (r) n [A,] 

r £ i 


(r)" 

Vi 


( 2 - 70 ) 


Thus the net rate of progress of the xQ reaction in the forward 
direction is given by 


: <r) - k< r) n [aV 1 

i 


(r)’ 


V 


(r)" 


k (r) n [A, ] i 
r i i ‘ 


( 2 - 71 ) 


Now this reaction yields a predetermined number of moles of chemical 
species i as indicated by the coefficients in the stoichiometric 
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representation of the chemical reaction. Therefore, the molar rate of 
production of chemical species i is given by 


R. 

1 


£ K>< r >"-v< r >'Hk< r) n IV 1<r> ' 

r i 


v 


(r) " 


- k (r) n [A. ] 1 } . 

r .1 
1 


(2-72) 


Equations 2-69 and 2-70 are based on the Law of Mass Action and 
are general expressions for the forward and reverse reaction rates of 
some chemical reaction occurring in a gaseous system. Most frequently 
the chemical kinetics data for a particular reaction are based on 
empirical curve fits to experimental data. Such chemical kinetics 
data are usually presented with a rate law which best describes the 
particular chemical process. 

The theory describing heterogeneous chemical reactions or 
reactions occurring at the gas-solid interface is somewhat more compli- 
cated than for homogeneous chemical reactions. It was assumed by 
Laidler (Ref. 25) that there are four steps involved in the interaction 
of the gas molecules with the solid phase. These steps are: (1) 

The reacting molecules diffuse to the solid surface. (2) The molecules 
are adsorbed on the surface. (3) The molecules undergo chemical 
reactions giving gaseous and or solid products. (4) The gaseous 
product molecules diffuse from the surface. The usual treatment of 
surface reactions is based on a concept due to Langmuir and Hinshelwood 
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which is discussed in Emmett (Ref. 26). The Langmuir-Hinshelwood 
mechanism assumes that the reactants are in adsorptive equilibrium 
with the solid surface. The reaction then involves the adsorbed 
molecules. Quantitative treatment of the reactions by this mechanism, 
therefore, involves obtaining an expression, using the adsorption 
isotherm, for the concentration of the reactant molecules on the 
surface. Thus, expressing the rate of reaction in terms of these 
surface concentrations, the rate of reaction can be expressed in terms 
of the concentrations of the gaseous reactants. 

Following the development of Alekseyev (Ref. 27), the Law of 
Surface Action for the heterogeneous reaction 


Ev! A -*> Z vV A (2-73) 

j J J j J J 


states that the rate of the process is proportional to the product of 
the portions of the surface occupied by reacting species raised to 
powers equal to the corresponding stoichiometric coefficients. In 
equation form 


reaction rate = k 


n 

j 


'V 




-,n 


(2-74) 


where the reaction rate constant is given by an equation of the form 


k = A exp (-B/T) 


(2-75) 
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and 


n = E (v'.' - v!) .. 
3 3 3 


(2-76) 


Simultaneous forward and reverse heterogeneous chemical reactions 
are represented by 

u(r) 


3 


(r) 


E v< r >" A. 

j J 3 


(2-77) 


where r = 1, 2, , m independent reactions. The rate of the forward 

reaction for the chemical reaction represented by the equation is 


rate of forward reaction = 


/ \ v< r >' (r) 

k; ' n [Q.i J e n 
£ i j 


(2-78) 


and the rate of the reverse reaction is 


rate of reverse reaction = 


(r) -: r) " „<r) 

k'-' n [ 0 .] 1 e n 

r 3 3 


(2-79) 


Thus the net rate of the r^- reaction is given by 


< r> - 


v 


(r)’ 


k^ r) n [6 ] 3 

j 3 


(r) " 

/ r x V. u; ) (r) 

k (r) n [6,] 3 j e n a 

r j 3 os 


(2-80) 


and the molar rate of production of chemical species j resulting from 
the set of reactions (Eq. 2-77) is 
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fc - I [V 


(r)" 




v< r >' 

ki r) n [8 ] 3 

£ j 3 


V 


(r)" 


- k< r) n [6 ] j 

j 3 


a e n 

S O 


(r) 


(2-81) 


where the factor A is the surface area per volume and is included to 

s 

give rate of production per volume for heterogeneous chemical reactions 
occurring in porous media. 

There is very little chemical kinetics data available for reactions 
and conditions of interest in the field of ablation. When data are 
available it is presented with a rate law which best describes the 
particular chemical reaction. 


Uncharred Material and Substrate Insulation Equations 
The single energy transfer mechanism occurring in the un charred 
material and substrate insulation is heat transfer by conduction. Thus 
the differential equation governing the thermal behavior of these 
regions is the conduction equation given by 


$ 


T’ = 
s 


p ; 


c * 

P Q 


3T' 

s 

3t 


(2-82) 


and 


V 




(2-83) 


respectively 



CHAPTER III 


BOUNDARY CONDITIONS AND INITIAL CONDITIONS 

This analysis refers to the stagnation point of a body, hence the 
governing equations derived in Chapter II are reduced to one dimension 
in space. The equations to be solved are: 

Char Layer Equations. - 
Char temperature 


p C 3T a 3T 

d - n) M Ps “ 37 ( k s 37 ” > ~ H a (T s “ 
s 


+ n R„ H(T). + n H„ - n E r^ r) AH (r) + (1 - n)(A - e) 


s s 


S S ‘ h 

r 


• n p s H s 3n 

+ (1 - n ) q s + ~M "3t 

s 


( 3 - 1 ) 


Char porosity 


It - - n f (R hs + V 


( 3 - 2 ) 


Pyrolysis gas temperature 
P, C 


far . v 

3T\ _ 1 

3 Jin p 

\ (3P 


3yJ ~ n l 

3 In 1 

\3t 


+ v 


I7) ‘ 11 l H i *T t + l H 1 I7 J i + P H + P v f^ 
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+ ^ nv 2 e r_ m. + n t |^+n2 q, 

2 ± T\ i yy 3y i M i 9 y y 

+ n (a' - e’) + H A (t s - T) - n R s H(X) S - n ^ h s 

+ H E r^ r) AH (r) (3-3) 

n 
r 

Chemical species continuity equation 

It (n p i } + h (P i V o ) + ly^i " n r T. = 0 (3_4) 

Total mass conservation equation 


If p) + |r (p V 


n Z r_ =0 
i T i 


(3-5) 


Pressure of pyrolysis gas 


v2 Jl 


3“ P* + J£3.,KM, 3P_ u r 3 

Sy 2 km 9y pT ; 


2 2yR T 

- [ k ^ p> 


KM 


- U £ V " 0 


(3-6) 


Uncharred Layer and Substrate Insulation Equations. 
Uncharred layer temperature 


3_ 

3y 


( f 3T’\ „ 3T' 

k' —•] = p' C ~- 

s 3y / s p' 3t 


(3-7) 



43 


Substrate insulation temperature 


3y 



. 9T r 

p" c " TT 
s p* 3t 


(3-8) 


It is convenient to treat the equations for char temperature, 
un charred layer temperature and substrate insulation temperature as a 
set of coupled equations. That is, the char temperature equations are 
related to the uncharred layer temperature equation through the boun- 
dary condition at the char-uncharred interface. The equations for the 
uncharred layer and the insulation layer are similarly related. From 
this point forward, reference to the solid temperature will mean 
the temperature of the particular layer of interest. 

Solid Temperature Equations 

Two conditions must be specified at the front surface of the char 
layer. The first condition is an expression for the rate of material 
removal or the surface temperature and the second is an energy 
balance. 

Surface removal by oxidation .- There are two regimes of surface 
removal by oxidation. The first regime is the rate controlled regime. 
The rate of surface removal by oxidation is rate controlled when 
conditions of temperature and pressure are law enough that the rate of 
oxygen consumption in the chemical process does not exceed the rate of 
oxygen diffusion through the boundary layer to the surface. As the 
surface temperature and pressure increase, the rate of surface removal 
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goes through a transition from the rate controlled regime to a diffusion 
controlled regime. In the diffusion controlled regime, surface removal 
by oxidation depends on the rate of oxygen diffusion to the surface. 
Nolan and Scala (Ref. 28) express the rate of surface removal by 
oxidation in the rate controlled regime in terms of chemical kinetics, 
writting the mass loss rate as 

"s - k < P 0 2 >; (3 - 9) 

where the exponent n is the order of the reaction. The specific 
reaction rate is obtained from 

k = A exp (-B /T ) . (3-10) 

O s 

The oxygen partial pressure at the wall may be written in terms of the 
mass fraction of oxygen as follows: 

( V« ■ <*o 2 >. p e (3 - u > 

P - P (3-12) 

we 

<-0 2 >v ■ C „ R w /M 0 2 -, (3 - 13> 


Therefore, 
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(P n ) 
C >2 w 


C M 



(3-14) 


Equations 3—9, 3—10, and 3—14 are combined to give the rate of 
surface removal by rate controlled oxidation as 


m = A exp (-B /T ) 
s s s 



(3-15) 


In subsonic and supersonic flow, the stagnation pressure is given 
by the solution of the inviscid flow problem. The stagnation pressure 
in hypersonic flow is approximated in Truitt (Ref. 29) by 


P 

w,s 


11 

12 p e 



(3-16) 


In Ref. 30 Chapman relates the heating rate and enthalpy to the free 
stream conditions by 


q a 
n c 


V 


p /Rad v 
e e 


(3-17) 


and 


H a v 2 (3-18) 

e e 


Thus the wall pressure is approximated by 
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P 

w,s 


5.693 x 10 6 Rad (q c /H e > 2 . 


(3-19) 


In the current problem, 


P = P (3-20) 

w w,s 


thus 


P 

w 


= 5.693 X 10 6 


Rad (9 C /H e ) 2 . 


(3-21) 


In the diffusion controlled regime, surface removal by oxidation 
depends on the rate of oxygen diffusion to the surface as expressed in 
the following equation 


m = A L (3-22) 

s 0^ 

where X is the ratio of the mass of char layer removed by oxidation 
to the mass of oxygen diffusing to the surface. 

In Ref. 10 Swann presents an analysis of oxidation of carbon 
surfaces near the stagnation region of a body in a nonreacting mixture 
of two gases having the same specific heats. Following Swann's 
development, the boundary layer equation for conservation of oxygen is 


P u 


3C 

3z 


+ p v 


3C 

3y 



(3-23) 
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and the boundary layer energy equation is 


A A A 

9H - 9H _ 3 r U 9H u /. 

u 9z + p v 97‘ + 2 (- 

N Pr/ J’ 


(3-24) 


r. ^ 

Equations 3-21 and 3-22 are formally similar if Np r = 1 or if 

8H 

is small relative to ^ , which is valid at stagnation regions. Also, 
the boundary conditions for these two equations are identical, that is 


C = C \ 

w l 

1 at y = 0 (3-25) 

A A l 

H - H J 
w ' 

and 



(3-26) 


Nondimensionalizing Eqs. 3-23 and 3-24 with 
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C - C 


C = 


A A 


H - H 


H = **r 


w 

-zr 




w 

C - C 
e w 


H - H 
e w 




( 3 - 27 ) 


gives 


3C . - 

3C 

= JL 

p u P v 37 

3y 

3H - 


_ 3__ 

p u JI + P ' 

7 

3y 

3y 

C = H 

= 0 

at y 




sc 


Pr 


C = H = 1 at y 


( 3 - 28 ) 


Therefore, the solutions of the oxygen conservation equation and 
the energy conservation equation are formally similar. If the solution 
of the boundary layer energy equation is 


H = F 1 (z,y,N pr ) 


( 3 - 29 ) 


then the solution of the oxygen conservation equation is 


C - f x (z.y.N^) • 


( 3 - 30 ) 


/ 

/ 
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The rate of oxygen transfer to the surface by diffusion may be 
expressed as 


A(° 2 > - <C e - C w ) 


\ N Sc ^jv 


(3-31) 


and the rate of energy transfer to the surface may be expressed as 


(H - H ) [ ~ ) . 

e w l N p r 3 y / w 


(3-32) 


Fay and Riddell (Ref. 31) show that the rate of energy transfer 
to the surface may be expressed as 


q =0.76 N" 0,6 (p y 

M c,net Pr p w 


) 0,1 (p y ) 0,4 (H - H )V5- • 
e w T dz 


s s 


(3-33) 


Therefore, the rate of oxygen diffusion to the surface is 


"o 2 -°- 76 N SC -6 % ^° -1 «>. > J S > 0 ' 4 < C e - 'd t ■ < 3 -“) 


.)VS- 


Equations 3-33 and 3-34 are combined to give the rate of oxygen 
diffusion to the surface in terms of the energy transfer rate as 


n :°* 6 (c - c ) 

. Sc e w 

°2 N~°* 6 (H - H ) c » net 

Pr e w 


(3-35) 


or 
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N 


0.6 

Le 


Hq 

w c,net 


(3-36) 


The rate of surface removal by oxidation In terms of energy transfer 
rate Is obtained upon combining Eqs. 3-22 and 3-36. Thus, 


m 

s 



X N 


0.6 

Le 


M q 

w c,net 


(3-37) 


Equation 3-15 written for a reaction of order 1 is combined with 
Eq. 3-37 to give an equation for the rate of surface removal which 
does not contain the oxygen concentration at the wall. Thus, 


ft 


k P C M 
e e w 


V 


k P (H - H ) 
e e w 

\ m 0.6 

AN. q 

Le c,net 


(3-38) 


where 


k = A exp (- B/T ) . (3-39) 

5a S S ^ 

Front surface energy balance .- The second condition to be 
specified at the front surface is a surface energy balance. Energy 
transfer to the surface results from convective and radiative 
heating and combustion heating in the case of surface removal 
by oxidation. This energy is accommodated by blocking due to 
mass injection into the boundary layer, reradiation from the 
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surface, conduction to the interior, and sublimation of the char 
layer when the surface temperature reaches the sublimation temperature 
of the char material. 

Figure 2 from Swann, Pittman and Smith (Ref. 16) shows the effect 
of mass injection into the boundary layer on energy transfer to the 
surface. The exact solution is from the boundary layer solution by 
Roberts (Ref. 6) for air-to-air injection. The linear approximation is 

«c,n.t ' "c (1 * H w /H e> l 1 - * \ V’c 1 (3 - 40) 


where 


m_ = a m + a m, 

X C S pi 


(3-41) 


and n = 0.6. The second-order approximation, which was obtained by 

A 

fitting a curve through points at H e /q c = 0, 1.0, and 2.5 is 


"c.net - "c (1 ' W fl - [ ' 724 


- .13 (ij, H e /q c ) 2 ]) . 


(3-42) 


Figure 2 shows the linear approximation to be good for values of 

~ A 

™T^e^c — secon d _ °rder approximation is good for < 2.25 

In Ref. 16 Swann, Pittman and Smith specify a minimum value of 
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- ■ ■■■■ t~ of 0.04 at n^H /q = 2.25, where the second order 
q c U - n w /H e ; 1 e c 

curve departs the exact curve. 

Writing the surface energy balance in equation form (Ref. 16) 


q c (1 - H /H ) 

w e 

Cold Wall Con- Hot-wall 
vective Heat- correction 
ing Rate 


(1 - (1 - B) [0.724 m H fa 

j e c 
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Combustion Heating Rate 
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s 
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1 
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3T 

- k — 

K s 3y 


+ S(T 

S 1 


T,) m H 
1 s c 


Conduction Heat of Sublimation 

to Interior of Char 


(3-43) 


where 
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3 “ 1 when H. e /q c £ 1.0 


3*0 when H e /q c >1.0 


S(T - T.) is a step function defined by 
S 1 1 


S (T - T.) = 1 when T = T, 
S l 1 


S (T - T ) = 0 when T . < T 
S 4 1 s 1 

1 1 


When the surface temperature is less than the sublimation 

temperature, Eq. 3-43 is solved for the temperature gradient at the 
3T 

g 

surface which is used as a boundary condition for solving the 

char temperature equation* 

When the temperature of the char layer surface equals the sublima- 
tion temperature of the char material, the specified sublimation 
temperature of the material is used as a boundary condition and Eq. 3-43 
is used to compute the rate of surface removal by sublimation. 

Pyrolysis zone energy balance *- The second boundary condition 
to be specified for the char temperature equation is at the interface 
of the char layer and the un char red layer. This equation is just an 
expression of conservation of energy at the interface energy conducted 
from the char layer to the interface is accommodated by pyrolysis 
reactions and conduction into the uncharred layer. In equation form 
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(3-44) 


Also, the temperature of the char layer equals the temperature 
of the uncharred layer at their interface. 


T = T ' . (3-45) 

a i 3 i 

Rate of pyrolysis of uncharred material .- The pyrolysis rate at 
the interface is given by an Arrhenius equation as follows: 

m - A’ exp (-B'/T. ) . (3-46) 

g I 

It is sometimes desirable to limit the temperature at the 
pyrolysis zone to some value Tj. When such a restriction is used 
Eqs. 3-44 and 3-46 are employed as described until the pyrolysis 
zone temperature reaches T^, then Eq. 3-44 is used to determine the 
rate of pyrolysis of the uncharred layer and the boundary condition 
for T at the pyrolysis zone becomes T = T . 

S S x 

Energy balance at the uncharred material-insulation interface,- 
The boundary condition at the interface of the char layer and the 
un charred layer also satisfies one of the requirements of the uncharred 
temperature equation for boundary conditions. The other boundary 
condition for the uncharred temperature equations results from an 
expression of conservation of energy at the interface of the uncharred 
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layer and the insulation layer — energy conducted from the uncharred 
layer to the surface is accommodated by energy conduction into the 
insulation and by increasing the temperature of the heat sink at the 
interface. In equation form 



I + J 



(3-47) 


Also the temperatures of the two layers are equal at their interface. 
Thus 


T f _ rp| | 

sl + j Sl + J 


(3-48) 


Back surface energy balance ,- Equation 3-47 satisfies one of the 
requirements of the insulation temperature equation for boundary 
conditions* The other boundary condition for the insulation temperature 
equation results from an energy balance at the back surface — energy 
transfer to the back surface (conduction through the insulation plus 
energy transfer to the surface from the surroundings) is accommodated 
by energy radiation to the surroundings and by increasing the 
temperature of the heat sink at the back surface. In equation form 


/ 8T"\ 

\ k s 9y / I + J + 


K + q B ° £ s T s I + J + K 


+ P HSP C p. 


HSP 


A (IS) 

HSP \3t / I + J + K . 


(3-49) 
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The effect of an adiabatic surface is achieved by setting the rate of 
energy transfer to the surface from the surroundings equal to the rate 
of energy radiated by the surface to the surroundings. Thus, for an 
adiabatic back surface 


q 


B 


O e" T" 
s s 


4 

I + J + K . 


(3-50) 


Initial condi tions . - Initially, the complete system is at a specified 
temperature; thus the initial condition for the solid phase temperature 
is 


T (y, t) - T (y) at t = 0 (3-51) 

s o 

where the superscript on T g is neglected. 

Char Porosity Equation 

A single boundary condition is required for solution of the char 
layer porosity equation. The condition used in this analysis is a 
specified porosity of the char layer at the pyrolysis interface. 

The initial condition for the char layer porosity is 

n (y,t) = n Q (y) at t = o. (3-52) 

Pyrolysis Gas Temperature Equation 
The pyrolysis gas temperature equation requires a single boundary 
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condition. The condition employed is that the pyrolysis gas 
temperature is equal to the solid phase temperature at the pyrolysis 
zone. The initial condition for the pyrolysis gas temperature is 

T (y»t) = T (y) at t = 0. (3-53) 

o 

Pyrolysis Gas Pressure Equation 
The pyrolysis gas pressure distribution equation requires two 
boundary conditions. 

Specified pressure at the front surface.- The first boundary 
condition is that the pressure is specified at the surface, 

P. = P . (3-54) 

1 w 


Specified pressure gradient at the pyrolysis zone .- The second is 
that the pressure gradient is specified at the interface. In developing 
the governing differential equation for pyrolysis gas pressure in 
Chapter II, Darcy's law was used to determine the superficial velocity 
of the pyrolysis gases in the char layer. In equation form, Darcy's 
law for a one-dimensional system is 
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K 3P 

y 3y 


(3-55) 


Equation 3-55 is multiplied by p and the equation of state is used 
to give 


P V o 


KM 81? 

pR T 3y ' 

u 


(3-56) 


Equation 3-56 is applied at the pyrolysis zone and use is made of the 
equation 


(P v 0 )j - - 


m 


(3-57) 


to obtain 



(3-58) 


But 


8P = _1 9P 2 
8y 2P 8y 


(3-59) 


therefore 



(3-60) 
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Initial conditions , - The initial condition for the pyrolysis gas 
pressure is 


P (y,t) = P at t = 0 . (3-61) 

w * w,o 

Total Mass Conservation Equation 
The mass conservation equation is solved for the product P V Q > 
or the local mass flow rate. It requires a single boundary condition. 
The boundary condition used is that the mass flow rate is known at the 
pyrolysis interface, or in equation form 


(p v ) = - m . (3-62) 

o I g 

The initial condition for the mass flow rate is 

(p v ) = -m (y) at t = 0, (3-63) 

o y,t o 

Chemical Species Conservation Equation 
The chemical species continuity equation is solved for the local 
mass flow rate of each chemical species. It requires a single 
boundary condition. The boundary condition is obtained from the molar 
composition of the pyrolysis gases which is specified at the pyrolysis 
interface and the total pyrolysis gas flow rate at that point. This 
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boundary condition is expressed in equation form as 


(Pi v)j 



( 3 - 64 ) 


The initial condition for the species continuity equation is 


(P i v) 


y.t 


(Pjv) at t = 0. 

y»° 


( 3 - 65 ) 



CHAPTER IV 


TRANSFORMATION AND LINEARIZATION OF EQUATIONS 
AND BOUNDARY CONDITIONS 

The governing equations and boundary conditions presented to this 
point are for a physical system with boundaries which move relative to 
each other and relative to a fixed coordinate system. In maintaining 
a fixed number of stations in layers of varying thickness when obtain- 
ing a numerical solution to an equation it is necessary to interpolate 
after each iteration as the location of the stations change. Each 
such operation introduces a small error. This problem can be eliminated 
by transforming to a moving coordinate system in which the locations of 
the stations remain fixed and the coordinate system moves to accommo- 
date changes in the location of the boundaries. The transformations 
presented by Swann, Pittman and Smith in Ref. 16 will be employed here. 
The location of the system boundaries with the new coordinate system is 
shown in Fig. 3. The finite char layer of thickness at time 

t = 0 is required for obtaining a numerical solution to the governing 
equations. 

The equations and boundary conditions for the char layer are 
transformed to a coordinate system with the origin attached to the 
front surface. The dimensional moving coordinate system with the 
origin attached to the front surface results from the following 
transformation 
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Figure 3.- Location of system boundaries and coordinates. 
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iU 

r t s 

x , = y - J — — dt 
d ° p »„ 


(4-1) 


where the integral represents the total surface recession at some time 
t. Equation 4-1 is nondimensionalized by the char layer thickness £ 
to give the transformed dimensionless coordinate for the char layer as 


x 


y - r 0 V P s„ dt 

£ 


(4-2) 


Note that the new coordinate system for the char layer is attached to 
the char layer surface and extends to the pyrolysis zone. The 
coordinates of the front surface and pyrolysis zone are constant at 
x = 0 and x = 1 respectively. 

Similarly, the governing equations and boundary conditions for the 
uncharred layer are transformed to a moving coordinate system with the 
origin attached to the pyrolysis zone. The dimensional moving 
coordinate system with the origin attached to the pyrolysis zone 
results from the following transformation 


x' = y - £ - / t m /Ap dt 

d ° 0 g 


(4-3) 


where £^ is the finite char thickness at time t = 0 and the integral 
represents the thickness of uncharred material which has been degraded 
at some time t. Equation 4-3 is nondimensionalized by the un charred 
material thickness £' to give the transformed dimensionless 
coordinate for the uncharred layer as 
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x 




m /Ap dt 

_J 


(4-4) 


Note that the new coordinate system for the uncharred layer is 
attached to the pyrolysis zone and extends to the uncharred material - 
insulation layer interface. The coordinates of the uncharred layer 
boundaries are x 1 = 0 and x 1 - 1. 

The boundaries of the insulation layer are fixed so the new 
coordinate system is stationary with the origin at the boundary between 
the uncharred layer and the insulation. The new coordinate system for 
the insulation layer results from transforming the initial system by 
an amount equal to the total initial thickness of the char layer and 
the uncharred layer and nondiraensionalizing the result by the thickness 
of the insulation layer. In equation form 


x 


tt 


y - (5, + «,') 

o o 

r 


(4-5) 


The coordinates of the insulation boundaries are x" = 0 and x" = 1. 

Char Layer Equations 

Equation 4-2 is used to transform the governing equations for the 
char layer. The following derivative expressions are obtained: 


/d \ _ / 3 \ , 3x jhz dJL 3x: 3__ 

^3tJ Old ^3tJ ^ ew 3y 3t 3£ 3t 3t 3x 


(4-6) 


but 
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9x _ 1_ 

9y £ n 


9x 
9 £ 


- x/£ 


9x 

9t 


" £ V P s 


) (4-7) 


£ = £ + /* [ft /Ap - ft /p ] dt 

° n 8 S ® 


9£ 

9t 


m g /Ap - m s /p s . 


J 


Therefore 


(at) oid 



New 


- V 


c 9x 


(4-8) 


where 


V c = £ [ V P s + x(A g /Ap - m s /p s )] 

o o 


(4-9) 


Also 


9 _ 9x 9_ 

9y 9y 9x 


(4-10) 


or 
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3_ = i a_ 

9y £ 9x 


(4-11) 


and 


a" i r 

9y 2 it 2 9x 2 


(4-12) 


Char temperature equation .- Using these derivative expressions 
the char temperature equation becomes 


pC |"9T 3 t 1 k 

k- v <sr]-7 


9 2 T , 9k 9T 

s _1 s s 

JT 9x 2 £ 2 9x 3x 


H.(T 
A s 


T) + n R H(T) s + n Rb s H s - n E r^ r) AH (r) + (1 - n) (A - e) 
s r 


+ (1 - n) q;" + 


pH 1 . I 

s in _ v -in I . 

M \9t c 9x / 


(4-13) 


This equation can be written as 


9 2 T 9T 9T 

— —■ + a, + a 0 T + a, + a. 37 s - = 0 

„2 l9x 2s 3 49t 

OX 


(4-14) 


where 
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a 


1 



(l - n) 



a 


2 


H. £ 2 /k 
A s 


(4-15) 


(4-16) 


a 3 k 


H T + n R H(T) + n R. H -nl r^ r) AH (r) + (1 - n) (A - e) 

A S S Us S n 

— r 


+ (1 - n)q;" + 


¥* fe - v c fe) - ri j R hJ AH J 


(4-17) 


c 4 - - a - n) n 2 P s c^/in^ (4-18) 

The form of Eq. 4-12 is convenient for obtaining a solution by 

numerical methods. In obtaining a numerical solution to Eq. 4-12 the 

a's are considered to be independent of T , thus Eq, 4-12 becomes 

s 

linear. 

Char porosity equation.- The transformed char layer porosity 
equation is 


Ij- - V I 2 - + n — (R. + R ) = 0 

3t c 3x p hs s' 


(4-19) 


or, writing it in the linear form, 


4- p n 4. p + P in — 0 

3x E 1 n 2 e 3 3t ° 


(4-20) 
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where 


e i - - r <E hs + V /v 

s 


(4-21) 


e 2 = 0 


(4-22) 


e, = 1/V 
3 c 


(4-23) 


Pyrolysis gas temperature equation.- The transformed pyrolysis 
gas temperature equation is 


n y P i pi [ 3T . , \ 3t1 „ Id £n p\ f^P 

n E 5” [h + (v '* - V ad ‘ - n ItETt „ Lat 

x i ' ' P,x. u 

* l 

+ w* - V !£] - " l H i \ + E H 1 T h J i 

+ p [|a + (v/* - V c ) |a] + | n v 2 £ ^ M i 

L IX 


, _ ,„3 ~ 3v . _ r J i 8 i 13 

+ r\/l T -r- + H Z — — : rr -r— q 

xx 3x . M, £ 3x 

i i 


+ n (a' - e') + h (t s - t) - 


n K s H(T) e - n ^ H s 


+ n E r< r > AH (r) 
n 
r 


(4-24) 


Since 
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p = PM/R T 
u 


f l fo . P \ =_-> 

|UnT I P,x i 


(4-25) 


(4-26) 


Also 


1 7 = E P./M. R + R T I p./M. 
at l l u at u at . l x 

x 1 


(4-27) 


and 


?= I p./M. R + R T p./M. . 

ox i i u dx u dx . i i 

i i 


(4-28) 


Therefore Eq. 4-24 can be written as 


n (v/Jl - V ) [ Z - 1 - - ' P i - R Z p . /M 1 |2. + | H 

c Li M a u i 1 ° x ^ 


- n R 




< wt - V fe (= °i /M i)]} T + 11 1 H 1 \ 


xx 3v 


- f Z H. ~ J - n f- Z R_ M. ~ 

£ ± i 9x i 2 i T ± i £ 3 3x 


J g 

- n l -sp + ^ h \ - n (A ' - E ’> - Vs 
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+ T 1 R H(T) + n R, H - n E rf^ AH^ + n [ e „ Rl - 
s s hs s h 1 . M. 

r 'ii 


- R E p,/M. 

U i 1 ij 


3T 

at 


= o 


(4-29) 


or, in the linear form, 


If + T ♦ B 2 + B 3 f . 0 


(4-30) 


where 


6 i = {h a ■ n R u [vh (It ■ V C fr) + It ( e P i /M i) 


+ (v/a - v ) ~ 

C dx 


Bo “ 


(l ^ ) . 

D1 = n (v/£ - V ) \ E Q - J^ ± - R E p./M.l 
c l ± u x ij 

2 

b 1 H i “t - i ? H i h J i - " r E \ M 1 

L l i i i i 


T xx 3v T J i e i _1 8_ 

9x " i M i £ 2 9x Qx 


(4-31) 


(4-32) 


- n (A* - e’) - h a t s + n Rg h(t) s + n R hs h £ 


- n Z r^ r) AH (r) ]/Dl 


(4-33) 
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6 3-' 1 (j^57 i - R u^i /M i) /D1 


( 4 - 34 ) 


Chemical species continuity equation ,- The transformed chemical 
species continuity equation is 


!r <n pi* - v c It 01 pp + 1 h <p i V + 1 


n Rj m ± 

i 


0 ( 4 - 35 ) 


This equation is combined with the identities 


"i " - pi v 


( 4 - 36 ) 


and 


v = r| v 
o 


( 4 - 37 ) 


to obtain 


n 




I V c i \ 3n _ n 9v 

\ v i I 3x 2 3x 
v 



+ X - Pi \*L + "W 


= 0 


or, in linear form, 


+ 



m. 

i 




3m. 



( 4 - 38 ) 


3m 

3x 


( 4 - 39 ) 
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where 


A 


1. 

1 



n 


v c 9v _ dx\ 
v 3x 3t - 


/D2 


D2 - n(v c - f) 



•15 




+ n 



/D2 



(4-40) 

C4-41) 

(4-42) 

(4-43) 


Total mass conservation equation .- The transformed total mass 
conservation equation is 


It <» « - v c h <r > °> + Hr (p V - " E "r m i ■ 0 • < 4 -«> 

i i 

This equation is combined with the identity 


m = - p v q (4-45) 


to obtain 


3 _ 

3x 


m 



-nERj M i 
i i 


- V 

c 



(4-46) 
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It is convenient to integrate this equation numerically rather 
than use finite difference methods, hence, it is not expressed in the 
linear form. The solution to this equation is used with the total 
density obtained from the equation of state to determine the mass 
average velocity of the pyrolysis gases. 

Pyrolysis gas pressure equation .- The transformed pyrolysis gas 
pressure equation is 


9 2 P 2 JJT 3_ (KM\ 9_ 2 _ y R u T 

3 x 2 KM 9x ' yT ' 9x KM 


KM 


97 (n p) 


- v c h < n p> - n l \ M i] ■ 


(4-47) 


This equation is combined with the equation of state to give 



(4-48) 


or, in the linear form, 


I 


1 
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where 


+ Y + Y p 2 + y + y = 0 
a 2 Y 1 3x Y 2 K + Y 3 Y 4 3t 
3x 


(4-49) 
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(4-50) 
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Mi -if) 


(4-51) 


Y * Zi£L £ r ^ 
Y 3 Kp J K T i i 


(4-52) 


v = _ HI 

'4 KP 


(4-53) 


Uncharred Layer Equation 


Equation 4-4 

is used to 1 

for the uncharred 

layer. The 

obtained: 

iy - 

iy + r 

'St/ Old 

\dtl New L 
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(4-54) 


but 
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3t 


- m /Ap 
g 




Therefore 


a_\ = in + St (xi. - 1 ) 9_ 

\3t I Old \3t»New Ap \ 2' / 3x* 


(4-55) 


(4-56) 


Also 


3_ = 3xi n 

3y 3y 3x' 


(4-57) 


or 


i 3_ 
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3_ 

3y 


(4-58) 
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and 



(4-59) 


These equations are employed to obtain the transformed energy 
equation for the uncharred layer as 



(4-60) 


where the superscript on T g is omitted. The linear form of this 
equation is 


where 


3 T 


dl 

I S 


3x 


,2 


+ a 'x TF + a 2 T s + a 3 + a 4 9T 


= 0 


(4-61) 
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(4-62) 


«2 = ° 


(4-63) 


a: 


s 


0 


(4-64) 
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a! = - p' C’ V 2 /k' . (4-65) 

4 s p g s 

Insulation Layei Equation 

Equation 4-5 is used to transform the governing energy equation 
for the insulation layer. The following derivative expressions are 
obtained: 


(St) ow -(It) 


New 


(4-66) 
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2 2 2 * 
3y l" 3 x" 


The insulation layer temperature equation becomes 


k" 3 T . 3k" 3T a 3T 
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(4-67) 


or 


3 2 T 3T 3T 
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(4-68) 
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where 


a. 


1_ 

k" 

s 



a” = 0 


a!^ = 0 



Boundary Conditions 

The transformed boundary conditions are as follows: 


Rate of surface removal by oxidation 


m s = 


k P C M 
e e w 


k P (H - H ) 

2 * »?- 6 f 
Le c,net 


Energy balance at the front surface 


q c (1 
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m AH 
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k 3T 
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(4-69) 

(4-70) 

(4-71) 

(4-72) 


(4-73) 

*] 


(4-74) 
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Energy balance at the pyrolysis zone 



( 4 - 75 ) 


Rate of pyrolysis of uncharred material 


m = A' exp ( -B'/T 
g l s x 



( 4 - 76 ) 


Energy balance at the interface of the uncharred layer and the 
insulation layer 

K 3T S ) IK fsl 

■ Id' 3x r l x' = 1 ■ lt"3x"/x"-0 


+ P " s \s ^ 


(!Is) 

»3t I x' = 1 


( 4 - 77 ) 


Energy balance at the back surface of the insulation layer 


IK* s) 

- \fL" 9x"/ x" = 1 


o e" T 


s s 


- 


x" = 1 


~ / 3T s\ 

+ P HSP C P„„„ ^HSP \Jt~l x" = 1 


HSP 

Specified char porosity at the pyrolysis zone 


( 4 - 78 ) 


n , = n 

x = 1 o 


( 4 - 79 ) 


Specified temperature of pyrolysis gas at the pyrolysis interface 


T x = 1 = T s x = i 


( 4 - 80 ) 



Specified pressure at the front surface 


P 

x = 


0 


P 

w 


Specified pressure gradient at the pyrolysis interface 



Specified mass flow rate at the pyrolysis interface 


Cm) 


x 
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m 

g 


( 4 - 81 ) 


( 4 - 82 ) 


( 4 - 83 ) 


Specified chemical species mass flow rate at the pyrolysis inter- 



CHAPTER V 


FINITE DIFFERENCE EQUATIONS 

The system of equations derived in Chapter II of this paper 
includes six partial differential equations with variable coefficients 
thus it is necessary to solve them numerically. The procedure employed 
to solve all equations except the total mass conservation equation 
involves deriving the governing differential equations in finite 
difference form and solving the resulting sets of algebraic equations 
by iteration. The total mass conservation equation is solved by 
numerical integration from the char layer - uncharred layer interface. 
Figure 4 shows the locations of the finite-difference stations 
and the boundary conditions at each boundary. The distances between 
stations in the char layer, the uncharred layer, and the insulation 
layer are 


Ax - 1/1 - 1 > 


Ax' = 1/J V (5-1) 

Ax” = 1/K % ^ 


The station coordinates are 
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Boundary Conditions: 

Energy Balance or T s * Specified 
Specified P 

Differential equations: 

Solid Temperature 

Gas Temperature 

Pressure 

Total Mass Flux 

Species Mass Flux 

Porosity 


Boundary Conditions: 

Energy Balance 

Thermal Equilibrium Between Two Layers 
Specified T, aP 2 /9x, m, mi, V 


Differential Equation: 
Solid Temperature 


Boundary Conditions: 
Energy Balance 
Thermal Equilibrium 
Between Two Layers 


Differential Equation: 
Solid Temperature 


Boundary Condition: 
Energy Balance 


Figure 4.- Location of finite difference stations 
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x = (N - 1) Ax 


(5-2) 


for the char layer, 


x' = (N - I) Ax' 


(5-3) 


for the uncharred layer, and 


x" = (N - I - J) Ax" 


(5-4) 


for the insulation layer. 


Solid Phase Temperature Equations 
The differential equation for the char temperature is 


8 2 T 


3T 


3T 


3x 


+ a. + a 0 T + a. + a. = 0 . 
2 1 dx 2s 3 4 dt 


(5-5) 


Interior stations of the char layer ,- At interior stations the 
partial derivatives are replaced by central difference approximations. 
The central difference approximations of the partial derivative are 
obtained from Taylor series expansions at the station N evaluated 
at N + 1 and N - 1. Thus 


T (N + 1) = T (N) + 
s s 



N 


Ax + 
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f 3T =l 

I T (N + 1) - T (N - 1) i 

I s s j 

P 3 t s] 

i Ax 2 

\9x j 

' N ~ 2Ax | 

'9x 3 J 

1 N 12 


(5-8) 


Therefore the equation 


3T \ T (N + 1) - T (N - 1) 
SI s s 

9x / N 2Ax 


(5-9) 


2 

is accurate to terms of the order Ax . Similarly, adding Eqs. 5-6 and 
5^7 gives 



T (N + 1) - 2 T (N) + T (N - 1) 
s s s 


Ax 


which is accurate to terms of the order 



(5-10) 


Equations 5-9 and 5-10 are used in Eq. 5-5 to obtain 



86 


, a (N) 

— 2 t T g( N + 1) - 2 T g (N) + T g (N - 1)] + [T g (N + 1) 

Ax 


- T g (N - 1)] + a 2 (N) T g (N) + a 3 (N) 


+ a 4 (N) 


/3T \ 

|5t/ N = 0 * 


The finite difference approximation of the last term to the 
in Eq 0 5-11 is obtained from Taylor series expansions at time P 
evaluated at time P and P + At. Thus 


*«&(•.&)] 

,&)'*“ 4.&f “*‘§[tr(..&|] 


P + At/2 


P + At/2 
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P + 


At 


■ftk&li 


Solving these two equations for 
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P + At/2 
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2 

K~ +a 4 

3t J 


(5-11) 

left 
+ At/2 

(5-12) 

At/2 

(5-13) 

(5-14) 


2 

which is accurate to terms of the order At . 


Now 
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P + At/2 
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/ P P + At i 
= 2 K + a 4 ) 
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At 
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P 3T s P 

and a. t — and a. 

4 9t 4 


p + At ^s P + At 
3t 


are obtained from the 


explicit and implicit formulations of Eq* 5-11, that is 




9 [T (N + 1) P - 2 T (N) P + T (N - 1) P ] 
z s s s 


N Ax 

a i(N) p P P P 

[T g (N + 1) - T g (N - 1) ] - a 2 (N) T g (N) 
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k&) 


P + At 
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4 dt ' N Ax S S S 
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2A7— [T S (N + 1)P + ^ ' T s (N - 1)P + ^ - a 2 (N) P+At T s (N) 


- a 3 (N) 


P + At 


(5- 


Therefore, the modified implicit finite difference equation for T g 
interior stations is 
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17) 
At 

P+At 

18) 
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[a 4 (N) P + a 4 (N) P + At ] 


| T s (M)P + 


At - T (N) P 
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At 


l + ^2 [I s (N + 
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P P a n(N) p p 
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2 s 3 Ax 2 S 8 
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, /V ,.P + At „ ,„ X P + At . , VT .P + At 

+ a„(N) T (N) + a„(N) = 0 

2 s 3 


(5-19) 


A (N) T (N - 1) P + At + B (N) T (N) P + At + C (N) T (N + 1) P + At 
s s s s s s 

- D s (N) (5-20) 

where 

A (N) = 1/Ax 2 - a (N) P + At /2Ax (5-21) 

s 1 

B g (N) - a 2 (N) P + At - 2 /Ax 2 + ~ [a 4 (N) P + a 4 (N) P + At j(5-22) 

C (N) = 1/Ax 2 + a. (N) P + At /2Ax (5-23) 

sl 
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p p 4. a *- r i i 

D s (N) = - a 3 (N) - a 3 (N) -[ -j - jT g (N - 1) 

Ax 


- {a 2 (N) P - 2/Ax 2 - ^ [a 4 (N) P + <x 4 (N) P + At J} T s (N) P 


r 1 a l (li> 1 
+ V» + 


l) P .. 


Interior stations of the uncharred layer .- The modified implicit 
finite difference equation at interior stations of the uncharred layer 
is obtained by analogy from Eq. 5-19. The resulting equation is 


A'(N) T (N - 1) P + At + B’(N) T (N) P + At + C’ T (N + 1) P + At 
s s s s s s 


- d ; (n) 


(5-25) 


a (N) P + At 

a; (to - i/ax' 2 - 


(5-26) 


’(N) = a!(N) P + At - — + 77 - [a)(N) P + a!(N) P + At ] (5-27) 


. ,2 At 1 4 V < 
Ax' 

P + At 

o a, (N) 

C'(N) = 1/Ax' + — 

s 2 Ax' 


(5-28) 
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p p + At r i a i (n) i i 
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{a’(N) P - -2-j - [a^(N) P + a^(N) P + At ]} T s (N) P 

Ax f 


r i -i p 

[^2 + — ] V N+1 > 


(5-29) 


Interior stations of the insulation, - The modified implicit 
finite difference equation at interior stations of the insulation layer 
is similarly obtained as 


A" (N) T (N - 1) P + At + B" (N) T (N) P + At + C" (N) T (N + 1) P + At 
s s s s s s 


= D"(N) 
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( 5 - 30 ) 


where 


a"(N) P + At 
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( 5 - 31 ) 

( 5 - 32 ) 

( 5 - 33 ) 
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- {a' 2 (N) P - ~ [a'^(N) P + a"(N) P + At ]> T g (N) P 

Ax 11 


r i a ’i (N) i p 


(5-34) 


Boundary stations Boundary conditions other than a parameter 
being specified at a point are employed by combining the governing 
differential equation and the equation expressing the boundary 
condition to obtain a differential equation which is valid only at 
the boundary* The solution of this equation satisfies both the 
boundary condition and the governing differential equation. 

At the front surface (N = 1) The front surface boundary 
condition is 


1 

£ 



N 


c,net 


a e 

s 



(5-35) 


The second order derivative term in Eq. 5-5 is written as 



(5-36) 


The derivative of the temperature gradient is obtained from Taylor 
series expansions at the station N = 1 evaluated at N = 2, N = 3, 


and N = 4. Thus 
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PI...- -PL 

Idl \ Id T \ "1 

" 9 W) N = 3 + 2 H N = 4 J * 


(5-41) 


Combining Eq. 5-41 with Eq. 5-5 written for station N = 1 gives 
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= 0 


(5-42) 


N - 1 


The temperature gradient at station N = 1 is given by Eq. 5-35. The 
temperature gradients of neighboring stations are approximated by 
central difference expressions. The resulting finite difference 
equation is 
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(5-43) 


N = 1 
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Following the procedure used to obtain the modified implicit 
finite difference equation for interior stations, the analogous 
equation for the station at the front surface becomes 
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k (1) s s 2Ax 


s 

k p 


+ a 2 (1)P - AT + a 4 (l) 


P + At ]) T (1) P 


3 T (2) P 


4Ax' 


2 s' 


-f-S-- 4 ) 

\2Ax 6Ax / 


T (3) P + 3/4Ax 2 T (4) P 
s s 


-^7 V 5)P 

6Ax 


(5-44) 


or 
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B1 T (1) P + At + Cl T (2) P + At + G1 T (3) P + At 
s s s s s s 


+ HI T (4) P + At + II T (5) p + At = D1 

S S S3 S 


(5-45) 


where 


Bl s ■- [a l( l) p + At - ^ 1 ? - c a «.[ I S (D P + iC l 3 

k S 1 


3 , /1N P + At , 1 r ,,.P , ,,.P + At 

2 + a 2^ + At a 4 + a 4^ 

2Ax 


] (5-46) 


Cl - 3/8Ax 
s 


(5-47) 


G1 


4Ax 2 12Ax 2 


(5-48) 


H1 s“--2 

8Ax 


(5-49) 


II 


Die 


S 12Ax 2 


/1N P /1\P + At r /-^P + At ll n P + At 
a 3 (l) - 0,(1) + (0,(1) - ~i q c p >n + e “ 


t 


(5-50) 
P + At 


k .<« 


P+At 


+ IC, i (1)P - 1 ’/.net rfryr' {Ict i (1) ' 


77” ] - ' p a e [T (l) p ] 3 - ~^~~2 + a 2 (1)P 

oAX i/'i\P SS n i ^ 2 

k (1) 2Ax 
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fe + “4^ P + A ^ } T s (1)P - “2 V 2)P 

4Ax 


- Mj - -H) 

\2Ax 6A x / 


1 T (5) P * 


P 3 P 

T (3) + — T (4) 

S / * ~ s 

4Ax 


6Ax' 


2 -*- ' 
s 


(5-51) 


At the pyrolysis zone (N = I),- The boundary condition at the 
pyrolysis zone is 


- i ( k s lr) N . j ’ *. “p ' k ( k = S) N , 


(5-52) 


The second order derivative in the governing equation for char 
layer temperature is approximated by a four-point backward difference 
expression analogous to Eq. 5-41. Thus 


( 9 2 t \ , /ax \ hi \ 

aT/ = 6A^ 111 F") N = I " 18 W N - I - 1 

N - I 

K) , K) 

* X * N = I — 2 l 3x / N . I . 


+ 9 


] c. 


(5-53) 


Using this equation in the governing equation for char layer 
temperature and solving for the char layer temperature gradient at the 


pyrolysis zone gives 
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- a 0 (I) Ax T (I) - a, (I) Ax 

2 . S J 


3T 

- a 4 (I) Ax # (5-54) 


The analogous expression for the uncharred layer temperature 
gradient Is 



Combining Eqs. 5-52, 5-54, and 5-55 gives 
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1 n kMi) 

- a~(I)Ax + m It — 3 

3 6 g p i,' 


+ t hr) + a;d)Ax’ 

J ' * N = I + 3 i 


+ a^(I)Ax' 


N 

\9x' I 


N = I + 1 


+ oJ(I)Ax'T s (I) 


M 

| _ ..... 1 . . J 

f k.u) 

\3t J 

N = 1 k s (I)a 4 (I)Ax k'(I)a^(I)Ax' ^ 

0 + f 

L 2 


which is valid at the pyrolysis zone. 

W 

Approximating the temperature gradient of the char layer and the 
uncharred layer by four-point backward difference and forward 
difference expressions, respectively, and using central difference 
approximations for the temperature gradients at interior stations gives 


— — T (I - 4) 
6Ax s 


I 3 a l (I) \ / 4 3a l (I >l 

+ + —) V 1 - 3) - l5S + 2 / V 1 - 2) 

- («S - 3a i (I >) T s (I - 13 + (2S - T a i (I) 

- Vi) ta ) + ^(^ + ^ a i a) ‘ a 2 (I)Ax ') T s (I) 

Ml 

.. k (I)a.(I)Ax k' (I)a' (I)Ax' 

, ii . A „ s 3 S3 

+ — m AH : 

6 g p l l 

< m \ ti . - 1 . f « 3 “i (I >) 


k l H) / 3 1 [ 4 3a (I)\ 

- — (iA?- + 3a 'l (1) l V 1 + 3) + IIS 7 " -2—1 

+ + 6&-V I + i> j • 
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The modified implicit finite difference equation results from taking 
an average of Eq. 5-57 written in explicit form and in implicit form. 

The result is 

ZI T (I - 4) P + At + YI T (I - 3) P + At + XI T (I - 2) P + At 
s s s s s s 

+ AI T (I - l) p + At + BI T (I) p + At 
s s s s 

+ Cl T (I + 1) P + At + EI T (I + 2) P + At 
s s s s 

+ FI T (I + 3) P + At + GI T (I + 4) P + At 
s s s s 

- (5-58) 


where 


-k (I) P + At /(12 Ax + At ) 
s 


zi 


s . P + At /T .P + At. , , /x xP + At ,, T .P + At. , 
k (I) a, (I) Ax k (1) a! (I) Ax' 

s <4 , s 4 

nP + At + 


(5-59) 


P + At 3 a i (x) 

k (I) [ 7T- + - 

s N 1 4Ax 3 


P + At 


]/a 


P + At 


YL 


p, /T .P + At /T .P + At. 
k (I) a. (I) Ax k' 

s 4 s 

L „p + At 


(I) p + At a’(I) P + At Ax’ 
“P + At 


-1 


(5-60) 
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- k s (I) 


+ At j" 


3a (x) 
+ — ? 


P + At 


3Ax 


.'] « p + 


At 


XI 


. /tX P + At , T vP + At. . I/T .P + At ,, T J + At. , 
k (I) a, (I) Ax k'(I) a! (I) Ax’ 

2 I — r-r— r: + S 4 


- 


,P + At 


,P + At 


■] 


AI 




p + 


4t (jet - 3 ° 1 (I)P + At _ 


n 


P + At 


s p, / txP + At , T .P + At. . I/T .P + At I/T .P + At. , 
k (I) a. (I) Ax k'(I) a! (I) Ax' 

2 -2 = r 4-r- + s 4 


,P + At 


t P + At 




(5-61) 


(5-62) 


BI = - TT + 
s At 


*, /T .P + At /T vP + At. . ,, T .P + At , /TX P + At. r 
k (I) a. (I) Ax k'(I) a! (I) Ax’ 

s 4 s 4 


,P + At 


/T .P + At _ i 
k s (I) f 3 11 m P + 

£ P + At [^2Ax ” 6 a i^ 


At ,_.P + At. 

- a 2 (I) Ax 


■] 


k . (I) p + p 3 u 

+ „,P + At L 2Ax' + 6 a i 


(I) P + At - a^(I) P + At 


(5-63) 


Cl = 


- k ;< x > 


P + At 


[ 4 b- * 3tt l 


(I) 


P + At 


n 


,P + At 


s r I /n p + At /t\ E + At. . , /x vP + At. , T .P + At. , 
k g (I) 0^(1) Ax k^(I) a^(I) Ax' 

2 I « . * . 4" 


,P + At 


,P + At 


— 4 


El 


0 


- k’d)' 


+ At [lfer +3 “i 


(I) 


P + At 


fl 


,P + At 


3 r k (I) P + At a, (I) P + At Ax k’(I) P + At a! (I) P + At Ax» 
21 — _ + 3 


,P + At 


,P + At 




(5-64) 


(5-65) 
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k’(I) 


P + At 


FI 


D P + At 


n 


,P + At 


8 n m p + At m P + At. 
k (!) tt . (I) Ax 

2 s 1 
L «P + At 


k , ( i)P + At . (I) p + At Ax r 

+ — s 4 

0 ,P + At J 


- k’(I) P + At /(12 Ax' 5 , ,P + At ) 


GI 


P + At - A (I) P + At Ax 


„P + At 


k'(I) P + At a!(I) P + At Ax^ 

+ -J 

0 ,P + At J 


DI 


P + At , T vP + At. , , /T .P + At lm P + At 
t,(I) Ax k’(I) a! /T ' 

2 I — ^-r4r + 8 4 


r, /t\P + At 

k 8 (I) o 4 (] 

J „P + At 


rv (d p + Va) p + 

8 J 

L «P + At 


j.P + At 
At, 




"Ax 


k'(I) P + At a'(I) P + At 
s J 


i 
Ax' 


V 


P + At 


11 . P + At A _ 
—r m AH 

6 g p 


] 


\ (I) % (I) P Ax k • ( I) P a£ (I) P Ax •“ 

J Tp + TTp - 


k; ( I) P a*(I) P Ax’ u 

+ y 6 m g % 


k s (I) P a 3 (I) P Ax 




V 

k (I) P /fc P 

s 


k (I) P a.(I) P Ax k'(l) P a'(l) P Ax' 
2I- 5 z~ + 4 


V 1 


sfeV 1 * « P 


( 5 - 66 ) 


( 5 - 67 ) 
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■ 3 a i (i) i p r 

_4te + _j 3 J T s (I - 3 > 

jk - 3a l (I)P ] V 1 - » P } 


T -< I - 3 > P -I 3SJ + f“l <I)P 


T (I - 2) 
s 


k (I) 


P ,,(I) P Ax k’(I) P a'(I) P Ax' 
21- + - s 4 


. L i 


,P 


[ 2 l 


- — - a 2 (I) P Ax 


0 


— — + a' (I) P 

2Ax' 6 a l U; 


- a’(I) P Ax' 


At 


T S (I) 


k’ (I) P /k ,P 
s 


r 3 


k (I) P a,(I) P Ax k’(I) P a’(I) P Ax' 

2 | -* i + 8 4 


~V 


+ 3c^(I) 


,P 


4Ax' 


T (I + 1) + 

s 


|_3Ax' 2 a i 


(I) 


T (I + 2) 
s 


- [ 4 ^ - 3 “i (I)P ] T s (I + 3)P + 6i?- V 1 + 4)P j 


(5-68) 


At the uncharred material - Insulation interface (N a I + J-) .- 
The boundary condition at the interface of the uncharred material and 


the insulation is 
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This equation is combined with the uncharred material temperature 
equation and the insulation temperature equation following the procedure 
used for the pyrolysis zone equations. The resulting modified implicit 
finite difference equation is 


ZP T (I + J - 4) P + At + YP T (I + J - 3) P + At 
s s s s 

+ XP T (I + J - 2) p + At + AP T (I + J - l) p + At 
s s s s 

+ BP T (I + J) p + At + CP T (I + J + l) p + At 
s s v * s s 

+ EP T (I + J + 2) p + . At + FP T (I + J + 3) P + At 
s s s s 

+ GP T (I + J + 4) p + At = DP (5-70) 

s s s 


where 


ZP 


k^(I+J) P+At /(12 A'£ ,P+At ) 


”k* 

s 


/T ^ T .P+At I /T , T\P + ^t A . 

g (I+J) ot^(I+J) Ax' 


k" ( I+J) P+At a^ ( I+J) P+At Ax" 


f P+At 


l" 


P+At 


p hs c p rs £ hs. 


(5-71) 
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YP 


k^(I+J) P+At /Jl ,P+At [-^r + a[(I+J) P+At /3j 


"l 


k' (I+J) P+At a! (I+J) P+At Ax' k"(I+J) P+At a'; (I+J) P+At Ax" 


,P+At 


A" 


P+At 


P HsS A ' 


HS 
(5-72) 


ri 

HSj 


XP 


- k»(I+J) 


p+At /Jl ,p+At [-~^r + f a|(i+j) p+At J 


~1 

— 


k' (I+J) P+At a! (I+J) P+At Ax' k" (I+J) P+At a\' (I+J) P+At Ax" 


, ,P+At 


,nP+At 


P HS C P. 


HS 
(5-73) 


\lS_ 


AP 


- k'(I4j) p+&t /r PtAt r^- - 3a' 


(I+J) 


P+At 


s fk' (I+j) P+At a! (I+J) P+At Ax' k’ (I+J) P+At a’; (I+J) P+At Ax" 


"V 

3 


, P+At 


£"P+At 


P HSS 


HS 
(5-74) 


£ hs_ 


BP 


"k* 

s 


(I+J) P+At a' (I+J) P+At Ax ' k" (I+J) P+At aV (I+J) P+At Ax" 

4 8 4 


j.p+it 


,P+At 


P HS C P 


HS 1 " 5 . 


k^ (I+J) 


,P+At 


P+At r* 

_2Ax 


3 11 . , N P+At ,^..xP+At. 

■^rrr - T a,' (I+J) - a' (I+J) Ax 


6 1 


0 


k"(I+J) 

s 


P+At 


i." 


P+At 


3 + — a" 
2 Ax" 6 a l 

L 


r T I T\ P+At ll/T , TX P+At A „ 
(I+J) - a!, (I+J.) Ax" 


•] 


- !f< 5 - 75 > 
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CP 


- k”(I+J) P+At /Jl" P+At 

S 


r_^ 

La Ax" 


+ 3a'^(I+J) 


P+At 


EP 


FP =. 


GP 


V ( I+J) P+At a^ (I+J) P+At Ax ' 

k" (I+J) P+At a'' (I+J) P+At Ax" 
S 4 

A 

" p hs c p hs £ hs_ 
(5-76) 

V Mt 



r ,P+At 


- kjj(I+J) p+At /fc' ,p+At 

4 

_3Ax" 

r - | c^(i+j) P+At _ 



k * ( I+J) P+At a! (I+J) P+At Ax' 

S ** i 

k" ( I+J) P+At a" (I+J) P+At Ax" 
S 4 

A 

n C SL 

£i p +At 


£" P+At 


p hs c p hs HS. 

(5-77) 

k^'(I+J) P+At /Jl" P+At 

— L. _ JL a"(l+j) P+At 
L 4Ax" 3 r J) J 

i 


k’ (I+J) P+At a' (I+J) P+At Ax' 
s 4 i 

k" (I+J) P+At a" (I+J) P+At Ax" 

S 4 

A 

— nr 0 

V Mt 


H" P+At 


P HS C P HS HS. 
(5-78) 

- k"(I+J) P+At /(12 Ax"il" P+At ) 

S 




8 He' (I+j) P+At a! (I+J) P+At Ax' k"(I+J) P+At a';(l+J) P+At Ax" 


~1 


,P+At 


Z" 


P+At 


- p he c p h /hs. 
(5-79) 


DP = 


[ 


k’(I+J) P+At a^(I+J) P+At Ax' /i- ,P+At + k^(I+J) P+At a^(I+J) P+At Ax"/Jl" P+At ^ 


8 ( I+J) P+A *<* J (I+J) P+A C Ax • k^(I+J) P+At a^(I+J) P+At Ax" 


"k'i 

S 


t ,P + At 


,„P+At 


OhsS-hs'hs 


k' (I+J) p /r p 
s 


~k ' ( I+J) P+At a! (I+J) P+At Ax' k"(I+J) P+At a"(I+J) P+At Ax" 

JJP+At + ~ ^P+At PhsS^SisJ 
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{■ 


1 " " + J - 4)P+ [4A?- + 3 a i <I + J)P 


6Ax* V 1 


T (I + J - 3) 
s 


+ < I + J)P ] T s (I 


+ J - 2) - 


4Ax 


- - 3a 


[(I + J) P ] 


T (I + J - 1) 
s 


(I+J) P a!(I+J) P Ax’ k"(I+J) P a , ;(I+J) P Ax" 

2 I — S ‘i + _§ 4 c 0, 

2 * P fc» P pRS P HS HS 


r k* i 

i-* 


k'(i+j> 

s 


H “i (I+J)P - « 2 < I+J ) Pta '. 


] 

k” ( i«) p r 

+ 0 ..P L 2Ax" 


+ a'^(I+J) P - a^(I+J) P Ax" 


k"(I+J) P /Jl" P 

s 


At 


T g (I+J) 


[kdI+J) P a! (I+J) P Ax' k" ( I+J ) P aV ( I+J) P Ax" XV 1 

£ P HSV„SJ 


4 3 ii/tltN P 


3Ax 2 "1' 


f jjfjiT + 3a”(I+J) P J T s (I+J+l) p + £■ 

- [*3^ - 3 a '; <I+J d T S (I - J+3 > P + 63^ T s (I+J+4)P } - 


T g (I+J+2) 


(5-80) 


At the back surface (N ■ I + J + K) The back surface boundary 
condition is 


. k. L. S) 

*"'• 3X "' H “ I + J + 


O £" T (I + J + K) 
s s 


q B + ^spS^p^hsp (at ) N 


= I + J + K 


(5-81) 
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This equation is combined with the insulation temperature equation 
following the procedure used for the front surface boundary condition 
and char layer temperature equation. The resulting modified implicit 
finite difference equation is 


ZZ T (I + J + K - 4) p + At + YZ T (I + J + K - 3) p + At 
s s s s 

P 4- A t P 4- At* 

+ XZ T (I + J + K - 2) + AZ T (I + J + K - 1) 

s s s s 

+ BZ T (I + J + K) p + At = DZ (5-82) 

s s s 


where 


ZZ = 
s 


k"(I+J+K) P+At /(12 Ax" 2 £") 
s 


P HSpS„ *HSP J 

- ribr 


„ a'/ ( 1+ J+K) P+A ( 1+ J+K) 

4 £" 


P+At 


(5-83) 


YZ = -4.5 ZZ 
S s 

XZ - 8 ZZ 
s s 

AZ = - YZ 
s s 

BZ s = [ 61 * 2 (I+J+K) P+At Ax " 2 - 9] ZZ g - •— 


(5-84) 

(5-85) 

(5-86) 
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. P+At , 


, P+At . 11 


a t Tg < 1+ J+K) ] [a^( I+J+K) + ] 


2 ( PHSPCP HSP £HSP 


a»(I + J + K) P+At + ^ 


a & I+J+K) P+At k" (I+J+K ) P+A 1 


£" 


C5-87) 


DZ = - 


a'^ (I+J+K) P+At + ll/6Ax" 


2 { P HSpS„,/HSP [0, l <I+J+K)P+At+ 6S? 1 - 

V. nor 


a"( I+J+K) P+At kg ( I+J+K) P+At 

A" 


P+At a'3(I+J+K) P+At kg'( I+J+K) P+At /£” 


q B + 


a-'(I+J+K) P+At + ^ 


a'^ (I+J+K) + ll/6Ax" 


2 { P HSP C P uc /HSP [a l (I+J+K)P + 6^ 1 - 
l HSP 


al|( I+J+K) P k" ( I+J+K) P 


£" 


a" ( I+J+K) P k"( I+J+K) P /£" k" (I+J+K) P /£" 

P 3 s S 

+ P + P 

U .11 /t , f . 1 ■ / / A II . II /t . T I 


a'^ (I+J+K) + ll/6Ax' 


a'^ (I+J+K) + ll/6Ax" 


— —r T (I+J+K) P - — 2___ T (I+J+K- 3) P + — T (I+J+K-2) P 
6Ax" 2 S AAx" 2 S 3Ax" 2 S 


+ — T ( I+J+K- 1) P 


4Ax" 


2 s 


- r ~^~2 - «2 

[_2Ax" Z 


(I+J+K) 


T ( I+J+K) 


- a e" [T (I+J+K) ] 

S S 


- St T S < I+J+K > P - 


(5-88) 


/\ 

\J 
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Char Layer Porosity Equation 

The differential equation for the char layer porosity is 


9n 

8x 


e. n + + e. 


3n 

3t 


= 0 


(5-89) 


The second term in this equation may be much less than 1. Therefore, 
to assure that the finite difference form of this equation is suitable 
for obtaining a numerical solution, the first order partial derivative 
is replaced by a forward difference approximation. 

The forward difference approximation of the derivative is 
obtained from Taylor series expansions at the station N evaluated 
at N + 1 and N + 2. Thus 


n(N + i) - n(N) + 


N 

\3 x/ 


N 


n(N + 2) = n(N) + 2 





(5-90) 

(5-91) 


Eliminating the second order derivative from this pair of equations and 
solving for the first order derivative gives: 



[-3n(N) + 4n(N + 1) - n(N + 2)]/2Ax 


(5-92) 


which is accurate to terms of the order Ax . 
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Combining Eqs. 5-89 and 5-92 gives 


[e i <N) - it ln(n) + h r,(N+1 > 


n(N+2) 


+ e 2 (N) + e 3 (N) = 0 


(5-93) 


which yields the following modified implicit finite difference equation. 


B(N) q(N) P + At + C(N) n(N+l) P + At + E (N) n(N+2) P + At 


= D(N) 


(5-94) 


B(N) = [e 3 (N) P + e 3 (N) P + At ] 


» 1 r_ / M vP + At 3 

+ T |£ 1 (N) -2&J 1 


(5-95) 


(5-96) 


(5-97) 



Ill 


D(N) = - j [e 2 (N) P + e 2 (N) P + At ] 

1 / 3 1 r /X ,.P , ,„>P + At ,„ tN P 

-I (e l <N> -2S-a7 [e 3 (N) + e 3 (n) 1}n(N) 

- ji n(N+l) P + -Jjj n(N+2) P . (5-98) 

Equation 5-93 is valid at all stations from N = 1 to N =* I - 2. 
At N - I - 1 the third term in Eq. 5-93 would contain n(I + 1) which 
is not defined. The finite difference equation for station I - 1 is 
obtained in a manner identical to that used to obtain Eq. 5-93 except 
that the first order derivative is approximated by a two-point forward 
difference equation. Thus: 



(5-99) 


which is accurate to terms of the order Ax. The resulting modified 
implicit finite difference equation for station I - 1 is 


b(i - i)n(i - D P + At + c(i - i)nd) P + At = d(i - l) (5-ioo) 


where 
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B(I " X) = At [£ 3 (I " 1)P + £ 3 (I 


l) P+At ] + e (! - l) P+At - £ 


D(l - 1) = - [e,(i - 1) P + e,(l - 1) P ] - (e, (I - 1) P - — 

1 L 1 Ax 


- [c 3 (i - D p + e 3 (i - l) P + At ])n(i - l) P 


(5-101) 


C(I ' X) " t 


(5-102) 




(5-103) 


The single boundary condition for char layer porosity equation is 


n(i) = n T 


(5-104) 


This identity is used instead of a finite difference equation at 
station I. 


Pyrolysis Gas Temperature Equation 
The differential equation for the pyrolysis gas temperature is 




e 2 + 


„ 3T = 

j 3t 


(5-105) 


The single boundary condition for this equation is 
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T (I) = T s (I) . 


(5-106) 


The forms of the pyrolysis gas temperature equation and its boundary 
conditions are identical to the char layer porosity equation and 
boundary condition; therefore, the modified implicit finite difference 
equation for pyrolysis gas temperature is of the same form as the 
equations for char layer porosity. Thus for 1 < N < I - 2 


B(N) T(N) P + At + C(N) T (N + 1) P + At + E (N) T (N + 2) P + At 


= D(N) 


(5-107) 


where 


B(N) = ^ [B 3 (N) P + B 3 (N) P + At ] + j 


3 1 (N) 


P + At 


2Ax 


(5-108) 


C(N) = 


Ax 


(5-109) 


E (N) = - 


4 Ax 


(5-110) 


D(N) = - \ [8 2 (N) P + B 2 (N) P + At ] - j (8 1 (N) P - 2^- 


— - tMN) P + 3,00* + At ] }T (N) P - L- T(N + 1) P + yL- T(N + 2) P 

At J J Ax 4 Ax 


(5-111) 
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and, for N = I - 1, 


B(I - 1) T (I - 1) P + At + C(I - 1) T(I) P + At = D(I - 1) 


where 


s(i - i) « [e 3 d - d p + 63(1 - d p + At ] 


+ f^a - 1) 


P + At 1 


Ax 


C(I " = A^ 


d(i - l) = - [B 2 (I - D P + B 2 (I - D P + At ] - {^(1 - l ) 1 


1 1 r Q , r n /T -vP 4* At, ^ /T n P 

ST - AT [6 3 (I - « + 6 3 (i - !) T<1 - u 


- k T(I)P 


The equation applied at N = I is 


T (I) = T s (I) . 


(5-112) 

(5-113) 

(5-114) 

(5-115) 


(5-116) 
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Pyrolysis Gas Pressure Equation 
The differential equation for the pyrolysis gas pressure is 


3x 2 


+ Yi 


3P 

3x 


+ Y, 


P 2 + y 3 + 


Y, 


9P 

9t 


(5-117) 


Interior stations ,- The form of this equation is identical to that 
of the solid phase temperature equation; hence at interior stations 
the modified implicit finite difference equations for the pyrolysis 
gas pressure are written from the finite difference equations for 
the solid phase temperature as 


Ap(N) P 2 (N - 1) P + At + B p (N) P 2 (N) P + At 
+ Cp(N) P 2 (N + 1) P + At = D p (N) 


(5-118) 


where 


i V N) 
V"> "72-- 

Ax 


P + At 


2Ax 


Bp(N) = Y 2 (N) P + At - ^2 + aF tY 4 (N) P + Y 4 (N) P + At ] 

Ax 


Y X (N) 


P + At 


(5-119) 

(5-120) 


C (N) = -~ + 
Ax 


2Ax 


(5-121) 
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Dp (N) = - Y 3 (N) P - Y 3 (N) P + At 


1 V N) 


Ax 


2 2Ax J 


p 2 (n - 1) P 


/ 2 1 r ,„.P L , /XT .P + At n i_2 ,, T vP 

- (y 2 ( n ) " — 2 " At [y 4 (N) + y 4 (N) l' p (N) 

Ax u 


i + V N) 


. Ax 


2 2Ax 


2 P 

P (N + 1) 


(5-122) 


Front surface boundary condition (N = 1).- The boundary condition 
for pressure at the front surface is 


P(l) = P 


w 


C5-123) 


or 


p 2 cd = p 2 


(5-124) 


which is used instead of a finite difference equation at station 1. 

Pyrolysis zone boundary condition (N = I) ,- The second boundary 
condition for the pressure equation is the specified pressure gradient 
at the pyrolysis zone - 



(5-125) 


The second order derivative of Eq. 5-117 is written as the 

2 

first derivative of the gradient of P , 
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2 2 2 

3 P = 3_ 3P 

2^2 3x 3x 


(5-126) 


The derivative of the gradient of P is then approximated by a four- 
point backward difference expression obtained from Taylor series 
expansions at the station N = I evaluated at N = I - 1, N = 1 - 2, 
and N = I - 3. Thus 




1 



(5-127) 


Combining Eq. 5-127 with Eq. 5-117 written for station N * I gives 



2 

In Eq. 5-128 the gradient of P at the pyrolysis zone is replaced 
with Eq, 5-125 and the gradients at neighboring stations are 
approximated by central difference expressions yielding 
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6Ax 


P 2 (I - 4) P 2 (I - 3) + —— P 2 (I - 2) 


4Ax 


3Ax 


+ P 2 (I - 1) + [Yo(I) %] P 2 (I) + Yo(I) 

4Ax 2Ax 


e£ + V*> 


2 H R 


u 


>JiT 
1 KM, 


m 


+ y 4 (i) 


(”) 


N = I 


= 0 . 


(5-129) 


The modified implicit finite difference equation for pressure at 
the pyrolysis zone is obtained from Eq. 5-129 using the procedure 
previously outlined. Writing the equation, 


PX P 2 (I - 4) P + At + PY P 2 (I - 3) P + At + PZ P 2 (I - 2) P + At 


+ AP P 2 (I - 1) P + At + BP P 2 (I) P + At 


= DP 


(5-130) 


where 


PX = 


12Ax 


(5-131) 


8Ax 


PY = - 


(5-132) 
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PZ = 


3Ax 


(5-133) 


AP = - PY 


(5-134) 


BP = 2ZT tY 4 (I)P + Y 4 (I)P + ^ + \ t Y 2 (I) 


P + At 


2Ax 


(5-135) 


1 r /-r\P , /TN P + At, 

dp = - j iy 3 u) + Y 3 C 1 ) ] - 


11 

6 Ax 


+ y (I) P R Z P m P f^] 

1 J U MkM / 


N = I 


— ' 

11 , , T .P+At _ „P+At.P+At 
+ y (I) R SL m 


6 Ax ' 1 ' 


J u g 


M 

V KM/ 


P+At 


N = I 


12 P32 P32 ] 

P Z (I - 4 ) V P Z (I - 3 ) V - P (I - 2) 


12 Ax 


8 Ax 


3Ax 


8 Ax' 


h p 2 d - d p - i ( Y2CI) P - - ji [y 4 <i) p 


2 Ax 


+ Y 4 (I) P + At ]} P 2 (I) P . 


(5-136) 


Chemical Species Conservation Equation 
The differential equation for conservation of chemical species is 


2 8 m. 

m + A m. + A 9 + A t— = 0 
tfx i 1. i 2 ^ 3. at 

i i l 


(5-137) 
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The single boundary condition for this equation is 


(m.) 

N = I 




(5-138) 


This equation and its boundary condition are of the same form as the 
first order equations and boundary conditions handled previously. 
Therefore the modified implicit finite difference equation for conserva- 
tion of chemical species is written directly as 


B i (N) m i (N) P + At + C i (N) m ± (N + 1) P + At 


+ E i (N) fc ± (N + 2) P + At = D 1 (N) 


(5-139) 


for 1 < N < I - 2 


where 


B i (N) = 2St [A 1 (N)P + A 1 (N)P + At] 

i i 


, 1 r * + At 3 . 

+ 2 [A 1 1 < “ ) - 2Ax 1 


(5-140) 


C i (N) " Ax 


(5-141) 


E i (N) = " it 


(5-142) 



/ 
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D.(N) = - j [A (N) P + A (N) P + At ] 
i i 


-| (A 1 <« P - 2 fe - fe ' A 3 .<«' 


+ A 3 ^(N) P + At ]} A i (N) P - ^(N + 1) P 


+ V N + 2)P 


(5-143) 


and, for N = I - 1, 


B i (I - 1)^(1 - 1) P + At + C ± (I - l)mi(I) P + At = D ± (I - 1) 


(5-144) 


where 

B (I - 1) - -ri [A (I - 1) P + A (I - 1) P + At ] 

i i 

+ A^(I _ l) P + At - (5-145) 

C i (I ” 1} = Ax (5-146) 

Di(l - 1) = - A, (I - 1) P - A, (I - 1) P + At - {A, (I - 1) P 

\ 2 i 2 i h 

T- [A- (I - 1) P + A (I - l) P ]>m (I - 1) P - L. m (I) P 

Ax At 3i i Ax i 


(5-147) 
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and, for N = I , 


A i (I) 



(5-148) 



CHAPTER VI 


SOLUTION OF EQUATIONS 

The equations formulated to this point are solved on a digital 
computer. The linearized finite difference equations for solid 
temperature and pyrolysis gas pressure are solved using the method 
suggested by L. H. Thomas of the Watson Scientific Computing Laboratory. 
Thomas 'method is presented in Bruce, Peaceman and Rachford (Ref. 32). 

Consider the finite difference equations for the solid temperature - 
At the front surface of the char layer (N = 1) : 


„ /lS P + At , _ /ox P + At . „ ,.,.P + ^ 

B1 T (1) + Cl T (2) + G1 T (3) 

s s s s s s 


+ HI T (4) P + At + II T (5) p + At = D1 
s s s s s 


(6-1) 


Within the char layer (1 < N < I) : 


A (N) T (N - 1) P + At + B (N) T (N) P + At + C (N) T (N + 1) P + At = D (N)*. 
s s s s s s s 

(6-2) 


At the pyrolysis zone (N » I) : 
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ZI T (I - 4) P + At + Y1 T (1 - 3) P + At + XI T (I - 2) P + At 

S S 8 S S S 


+ A (I) T (I - 1) P + At + B (I) T (I) P + At + C (I) T (I + 1) P + At 

S S S S o o 


+ EI T (I + 2) P + At + FI T (I + 3) P + At + GI T (I + 4) P + At 
s s s s s s 


D s (I) 


(6-3) 


Within the uncharred material (I < N < I + J) : 


A (N) T (N - 1) P + At + B (N) T (N) P + At + C (N) T (N + 1) P + At = D (N) 

S S S S 5 S o 

(6-4) 


At the uncharred layer-insulation layer interface (N = I + J) : 

ZP T (I + J - 4) P + At + YP T (I + J - 3) P + At + XP T (I + J - 2) P + At 
s s s s s s 

+ AP T (I + J - l) p + At + BP T (I + J) p + At 
s s s s 

+ CP T (I + J + l) p + At + EP T (I + J + 2) p + At 
s s s s 

+ FP T (I + J + 3) P + At + GP T (I + J + 4) p + At 
s s s s 

= D S (I + J) 


(6-5) 
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Within the insulation layer (I + J < N < I + J + K) : 

A (N) T (N - 1) P + At + B (N) T (N) P + At + C (N) T (N + 1) P + At = D (N) 
s s s s s s s 

(6-6) 


At the back surface of the insulation (N = I + J + K) : 

ZZ„ T (I + J + K - 4) P + At + YZ T (I + J + K - 3) P + At 

So S S 

+ XZ T (I + J + K - 2) P + At + A z T (I + J + K - l) p + At 
S s s s 

+ Bz T (I + J + K) p + At = DZ . (6-7) 

s s s 


Equation 6-1 is combined with Eq. 6-2 written for stations 2, 3, and 

4 to obtain an equation relating T (1) and T (2) which is valid 

s s 

at station 1. Also Eq. 6-7 is combined with Eq. 6-6 written for 

stations (I + J + K - 4) , (I + J + K - 3) , and (I + J + K - 2) to obtain 

an equation relating T (I + J + K - 1) and T (I + J + K) which is 

s s 

valid at station (I + J + K) . Similarly, the interface equations are 
combined with equations for neighboring stations to obtain equations 
relating the interface temperature to the temperature at the two 
adjacent stations. The resulting set of equations is tri-diagonal and 
may be written as 
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B (1) T (1) P + At + C (1) T (2) P + At = D (1) N - 1 

o 8 S S S 

A (N) T (N-1) P + At + B (N) T (N) P + At 
s s s s 

+ C g (N) T 5 (»l) p + it - D.W) 1 < B < I + J + K l 

A (I + J + K) T (I + J + K - 1) P + ^ + B (I + J + K) 
s s s 

T (I + K + K) p + At = D (I + J + K) N = I + J + K 

s v s I 


(6-8) 


Thomas' method for solving Eq. 6-8 is equivalent to Gaussian 
elimination, but it avoids the error growth associated with the back 
solution of the elimination method and it minimizes the storage 
requirements for machine calculations. Ref. 30 summarizes the method 
as follows: For the set of Eqs. 6-8 

let 


W(l) = B g (l) 

W(N) = B g (N) - A g (N) B(N-l) 2 <N< 1 + J + K 1 

B(N) = C (N)/W(N) 1<N<I+J+K-1 

S 


(6-9) 


and 
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G(l) * D s (l)/W(l) 

G(N) - [D (N) - A (N) G(N — 1)]/W(N) 2<N£I + J + K. 

s s 

The solution Is 


( 6 - 10 ) 


T S (N) 


P + At 


T (I + J + K) P + At = G(I + J + K) 
s 

G(N) - B(N) T(N + l) P + At 1<N<I + J + K- 
s 



( 6 - 11 ) 


The finite difference equations for the pyrolysis gas pressure 
within the char layer are of the same form as those for the solid 
temperature, hence they are solved in the same manner. 

The finite difference equations for the pyrolysis gas temperature, 
conservation of chemical species, and char layer porosity differ from 
the solid temperature and gas pressure equations in that the equations 
at internal stations are not symmetric with respect to the diagonal 
elements. Treatment of the set of equations for the pyrolysis gas 
temperature is shown as an example. 

The set of finite difference equations for the pyrolysis gas 
temperature is 


B(N) T(N) P + At + C(N) T(N + 1) P + At + E(N) T(N + 2) P + At 
> D(N) 1 < N < I - 2 


B(I - 1) T(I 


1) P + + C(I - 1) T(I) P + At ° 

T(I) P + At - T S (I) P + At • 




B(I - 1) 


(6-12) 
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Since each equation relates the temperature at a station to the 
temperature at forward stations the solution to this set of equations 
is obtained directly by working from the pyrolysis zone toward the 
front surface. Thus 


T ( i)P + At = T (I) P + At 
s 


T(I - 1) P + At = [D(I - 1) - C(I - 1) T(I) P + At ]/B(I - 1)V (6-13) 


T(N) P + At = [D(N) - C(N) T(N + 1) P + At 


- E(N) T (N + 2) P + At ]/B(N) 1 <> N < I - 2. 


The differential equation for conservation of mass is solved by 
numerical integration from the pyrolysis zone, where the mass flow rate 
of pyrolysis gases is known, to the front surface of the char layer. The 
transformed mass conservation equation is written in integral form as 

/ b f- Cm) dx = l / b [ |- (HP) - T\l 14 M 
a 9x a[_3t i A i . 

- V c ~ (np)l dx • (6-14) 


The term on the left side of this equation is integrated immediately to 


;[ 


■ K + 11 '.I If <ip) - » 5 V 


t. M i - v c <r| P)J 

i i 


dx . (6-15) 


obtain 
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If the lower limit of integration is station N and the upper limit is 
the pyrolysis zone (N = I) , Eq. 6-14 becomes 

A(N) = m(I) - £ /^(N)[^lt (np) " n ? R r i M 1 J dx 

+ ^x(N) V c 3x (nP) dx ' (6-16) 

Equation (4-9) for is used in the second integral in Eq. 6-16 

and the result is integrated by parts to obtain 

m(N) = m(I) - £ (np) - H £ dx 

+ v c (i) n(i) p(i) - v c (N) n(N) p(N) 

- (m g /Ap - m s /p s ) /^ (N) n P dx. (6-17) 

O 

These sets of equations were programmed for solution by a digital 
computer. As these equations are quasi-linear it is necessary to 
iterate to obtain a solution. A total of nine homogeneous and 
heterogeneous chemical reactions involving 12 gaseous species plus 
solid carbon were considered. 

Table 1 shows the chemical reactions 9 kinetics data, and rate 
laws included in the program. Table 2 gives a set of thermophysical 
properties data for a typical ablation material (low density phenolic- 
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nylon) which was input to this program. Data for viscosity and thermal 
conductivity of the gaseous species were obtained from Svehla (Ref. 33). 
The viscosity and thermal conductivity of the pyrolysis gas mixture are 
computed using the method presented by Brokaw in Ref. 34. Specific 
heat and enthalpy data for the gaseous species and enthalpy data for 
the char layer (solid carbon) were obtained from McBride and Bauer 
(Refs. 35 and 36). 

Appendix A presents a general flow chart of the program. Appendix 
B gives program usage instructions including definitions of the input 
terminology. The program Fortran 600 statements are presented in 
Appendix C. Appendix D defines the program terminology. 



Table 1.— Chemical Reactions Involving Pyrolysis Gases and Char (Pike, Ref. 37). 

k ! 

(General reaction: aA + bB + . . . nN + oO + ...) 

k 

r 

k = A exp (-B/T) 


Activation energy, B 



Reaction 

l2Ei 

Rate law 

Frequency factor. A 

°K 



1. 

®4 2 Vb + 2 “2 

Homogeneous 

kpA 

7.6 x 10 14 

4.775 

X 

io 4 

2. 

C 2 H 6 * C 2 H 4 + H 2 

Homogeneous 

kpA 

3.14 x 10 15 

3.019 

X 

10 4 

3. 

C 2 H 4 - C 2 H 2 + H 2 

Homogeneous 

kpA 

2.57 x 10 8 

1.157 

X 

10 5 

4. 

C 2 H 2 •*- 2C + H 2 

Homogeneous 

k fA 2 

2.14 x 10 10 

2.009 

X 

10 4 

5. 

C 6 H 6 6C + 3H 2 

Homogeneous 

kpA 

1.4 x 10 U 

2.622 

X 

10 4 

6. 

C + C0 2 -*■ 2 CO 

Heterogeneous 

k p B 

12 

1.2 x 10 X 

4.282 

X 

io 4 

7. 

c + h 2 o -*• CO + h 2 

Heterogeneous 

k F B 

9.26 x 10 3 

3.524 

X 

10 4 

8. 

^3 2 N 2 + 1 * 5H 2 

Homogeneous 

kpA 

2.86 x 10 6 

3.055 

X 

10 4 

9. 

NH 3 + C + HCN + H 2 

Heterogeneous 

V 

8.78 x 10 6 

3.885 

X 

10 4 


131 



132 


Table 2.- Thermophysical Properties of Low-Density 

Phenolic-Nylon Ablation Material (Dow and Bush, 
Ref. 38). 


Char 


Oxidation kinetics (first order) - 

Specific reaction rate constant, kg/m 3 -sec-atm . . . . 4.90xl0 10 


Activation energy, °K 4.25x10^ 

Mass of char removed per mass of oxygen reaching 

the surface 0.75 

Heat of combustion, J/kg 1.20x10^ 

Heat of sublimation, J/kg 5.00x10^ 

Surface emissivity 0.80 

Theoretical density, kg/m 3 1.43xl0 3 

Porosity at pyrolysis zone 0.85 

Proportionality constant in equation for gas 

char heat transfer coefficient, 1/m l.OOxlO 3 

Permeability, m 3 l.OOxlO - ^ 

Thermal conductivity, W/m-°K, at temperature of - 

278°K 0.16 

833°K 0.16 

1110°K 0.50 

1390°K 1.22 

1670°K . 1.87 

1940°K 2.65 

2220°K 3.74 

2500°K 4.75 

2780°K 6.24 

3050°K 7.66 


Uncharred Material 


Pyrolysis kinetics - 

Specific reaction rate constant, kg/m^-sec-atm . . . . 

Activation energy, °K 

Effective heat of pyrolysis, J/kg 

Specific heat, J/kg-°K, at temperature of - 

311°K 

367°K 

423°K 

478 K 

533°K 

589°K 

Thermal conductivity, W/m-°K, at temperature of - 

300°K 

390°K 

500°K 

610°K 

710°K 


7.74xl0 6 
1.289xl0 4 
1.28x10 6 


1.51xl0 3 
1.80xl0 3 
2. 07x1 0 3 
2.24xl0 3 
2 . 28xl0 3 
2 . 28xl0 3 


0.080 

0.084 

0.088 

0.092 

0.094 
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Table 2.- Concluded 


Initial composition of pyrolysis gases - mole 

fraction of chemical species at pyrolysis zone - 

ch 4 

H 2 

C 2 »A 

C 2 H 2 

CO 

H 2 0 

NH 3 

N 2 

CO2 

HCN 


C 2 H6 

C6H 6 


0.0 

0.294 

0.0 

0.0 

0.59 

0.0 

0.0 

0.009 

0.0 

0.0 

0.0 

0.107 



CHAPTER VII 


ANALYSIS VERIFICATION 

The developments presented in Chapters IV and V represent the usual 
approach to obtaining numerical solutions to differential equations of 
engineering and physics. However, the system of algebraic equations 
resulting from that procedure were found to be unstable for certain 
conditions. This problem was overcome by including a graded finite 
difference spacing in the char layer and the un charred layer and by 
rewriting the char layer equation (Eq. 4-12) to include the complete 
term, H^(T g - T) , in the "a^" term. The graded finite difference 
spacing was used to reduce the spacing in regions of large gradients 
(near the front surface of the char layer and in the uncharred layer, 
near the pyrolysis zone). Numerical solutions have been compared with 
exact solutions for a number of simplified cases. The results of these 
comparisons are presented in the following sections. 

Comparison of Numerical Results With 
Exact Solutions 

The set of equations whose solution is presented here is too 
complex to obtain an exact solution for a general case to check the 
accuracy of the numerical analysis. However, exact solutions have 
been obtained for a number of simplified problems to serve as a check 
of results obtained using the finite difference equations. 
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The exact solutions employed here are for the following problems 

2 

(1) The Laplace equation for P . 

(2) Flow of a constant property, incompressible fluid through 
an isothermal slab. 

(3) Heat sink case (flat plate subjected to surface heating). 

(4) Quasi-steady ablation case. 

2 

Laplace equation for P .- The differential equation governing the 
pyrolysis gas pressure in the char layer is given by Eq. 4-47 


a P 

3x 2 


+ Y 


1 9x 


+ Yo P + Yo + Y 


4 9t 


(7-1) 


where the coefficients are not constant. The boundary and initial 

2 

conditions imposed on P are 



(7-2) 


Equation 7-1 written for the idealized case of flow of a constant 
property, incompressible fluid through an isothermal slab with the 
fluid and slab in thermal equilibrium reduces to the Laplace 


equation. 
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The solution of the Laplace equation subject to Eq. 7-2 is 


P 


2y HR T i 

- u - 8 

KM 


x + P 


w 


1/2 


(7-3) 


Results obtained from Eq. 7-3 were compared with the results from 

the numerical analysis for this idealized case. These results are shown 

in Fig. 5a and 5b for P =0.01 and P =0.1 Atm, respectively. Note 

w w 

that the error is less than 0.02% for each set of results. 

Flow of a constant property incompressible fluid through an 
isothermal slab .- The differential equation governing the pyrolysis 
gas temperature is given by Eq. 4-30 


3T 

3x 


— +6^ + 02 + 6. 


3T 

3t 


= 0 


(7-4) 


where the coefficients are not constant. The boundary and initial 
conditions imposed on T are 


T(l,t) 





for t > 0 I 


T(x,0) 





(7-5) 


The governing energy equation for the idealized case of a 
constant property incompressible fluid flowing from a reservoir of 
specified temperature through an isothermal slab (Fig. 6) is 
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Figure 5a.— Comparison of results for numerical and exact solutions to 
the Laplace equation for with P w =0.01 ATM. 



Figure 5b.- Comparison of results 
the Laplace equation 


Error = 0. 003% 



K = 2. 0 x 10 -10 m 2 

i = 0. 01 m 


0 . 001 % 
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ill 

9x’ 


+ AT' 



(7-6) 


where 



x£/v 


H, 


npCp 


and the boundary and initial conditions for T' are 


(7-7) 


T' (0,t) - 1.0 for t > 0 

T'(x’,0) =0. I 


(7-8) 


To solve this set of equations the Laplace transform of T 
defined by 


P - e“ St T' (x't) dt 


(7-9) 


is introduced. Equations 7-6 and 7-8 become 
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Jip -v 

+ (A + S) P = 0 
P(0,t) = l./S \ 

P(x' ,0) = 0. 

J 

The solution to Eq. 7-10 is 

P = exp (- Ax') j exp (- Sx' ) . 


(7-10) 


(7-11) 


Performing the reverse transformation of Eq. 7-11 gives the solution to 
Eq. 7-6 and 7-8 as 


T'(x',t) = exp(- Ax') S(t - x') 


(7-12) 


where 

S(t - x') 

This is just the mathematical expression for a traveling wave of 
diminishing strength. 

This idealized case was solved with A = 1.0 and H/v - 1.0 
using the finite difference equations. These numerical results are 
compared with the exact solution obtained from Eqs. 7-12 and 7-13 in 


t 


0 when 0 < t < x' 


(7-13) 


jl when t > x' . 
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Figs. 7a and 7b for dimensionless finite difference spacings of 0.001 
and 0.01. The comparison with the transient results is favorable for 
the fine spacing, but, as expected, the ability to indicate a step 
change decreases with increased grid spacing. The steady profile 
solutions differ by less than 0.02% for each case. 

Heat sink case .- The exact solution for the temperature response of 

a flat plate subjected to a constant surface heating is (Carslaw and 
Jaeger, Ref. 39) 


T = T + q(£ + V)/k 
s s n 


k t 
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S \ a 

PgCp a + v) 
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. 1 v2 1 

2 + 2 (1 " x) "6 


2 °° (- i) n 

j E s — cos [niT(l - x) ] exp 

tt n=l n 


p » 2 - A- — 11 

L + vr JJ 


(7-14) 


This equation was used to determine the transient response of a flat 
plate using the heating rate and material properties listed in Table 3. 
Solutions were obtained for the same problem using the finite-difference 
equations. 

Figure 8 shows a comparison between the numerical results and 
the exact solution for time steps of 0.01 and 0.1 second. It can 
be seen that the error at t = 2.0 second is less than 2.0% for the 


large time step of 0.1 second 
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Exact Solution 



Figure 7a.- Comparison of numerical results with the exact solution for 
flow of a constant property incompressible fluid through an 
isothermal slab with A X = .001. 
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Table 3.- Inputs Used in Exact Solution to 
Heat Sink Case. 


Quantity 

q 

a 

v 


k 

s 



T 

s 

o 


Value 

1. x 10 6 W/m 2 
0.01 m 
0.01 m 

0.624 W/m 2 -°K 
2140 kg/m 3 
715.16 J/kg-°K 
300° K 
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T 

surlace 



Figure 8.- Comparison of numerical results with the exact solution for 
the heat sink problem. 
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Quasi-steady ablation case .- A quasi-steady-state ablating system 
is one in which the pyrolysis interface and the front surface recede 
at the same rate, that is it maintains a constant char thickness. If 
in addition the pyrolysis gases are inert, incompressible, and in 
local thermal equilibrium with the char layer, material properties of 
the system are uniform and independent of temperature, there are no 
energy sources, viscous dissipation or diffusion and conditions exist 
such that no energy is transferred into the uncharred layer, an exact 
solution to the governing mathematical equations can be obtained. 

The equation governing the char layer temperature is (Eq. 4-11) 


(1 - n) 
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(7-15) 


The equation governing the pyrolysis gas temperature is (Eq. 4-27) 

r PiCp i i 3 t 
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Using Eq. 7-17 with the assumptions of no chemical reactions, 
incompressible pyrolysis gases, constant material properties, and no 
energy sources, viscous dissipation, or diffusion, Eq. 7-15 and 
7-16 reduce to 
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(7-18) 
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(7-19) 


Equations 7-18 and 7-19 are combined to eliminate the term, H^(T g “ T, 
thus 
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Invoking the assumption of local thermal equilibrium between the 
pyrolysis gases and char layer (t = T g and gives 


3 2 T 


3T 


3x 
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where 


D = 


''I Pro 

ft c p + Ift + n - ' 

8 P s l 8 P s 


r - 9 


(7-22) 


The solution of Eq. 7-21 is 


T g = + C 2 exp (- Dx) , 


(7-23) 


The integration constants are determined from the boundary conditions: 
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and the final solution is 


T = 
s 


T ] , - T 1 exp (-D) + (T 1 - Tj) exp (-Dx) 
1 - exp (-D) 


(7-25) 


The mass loss rates m and m and the char layer thickness £ 

s g 

are obtained from this equation with the following equations 
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where energy transfer into the uncharred layer is neglected. Thus 

A 


th 


m = 
g 


t — w q • 

Ap aero 


£ = 




H c + AH p + D' (T x - T x ) 


H c + ARp + D* (T r - Tj) 

q 

asia 

H c + AHp + D 1 (T x - Tp) 

Jin 


o- 


AHp + D' (^ - Tp) 




(7-27) 



151 


where 


D' 



(7-28) 


The inputs used to obtain an exact solution to a quasi-steady-state 
ablation problem are listed in Table 4. 

Numerical solutions were obtained using the finite difference 
equations . The assumption of incompressibility was satisfied by 
specifying the pyrolysis gas density to be constant. In an attempt 
to satisfy the assumption of local thermal equilibrium between the 
pyrolysis gases and the char layer a very large value was used for the 
proportionality constant appearing in the equation for H^, the 
convective heat transfer coefficient, 


H 


A 



E 

i 


p i c p. 


M. * 
1 


(7-29) 


Calculations were made using a value for of 5 X 10^ 1/m yet a 

temperature difference of 1.5° K exists between the char layer and 
the pyrolysis gases at the front surface. These results are compared 
with the exact solution in Table 5. Note that the char thickness 
and mass loss rates are within 2% of the exact solution. 

An additional set of calculations was made in which the pyrolysis 
gas temperature was set equal to the char layer temperature and the 
term, H (T - T) , appearing in the char layer equation was replaced 
using the following equation 



IH 
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Table 4.- Inputs Used in Exact Solution to 
Quasi-Steady-State Ablation Case. 


Quantity 


aero 


Ap 

A 

c 


1 
I 
AHj 

»c 

M 


Value 

0.8 x 10 5 W/m 2 
0.624 W/m 2 -°K 
320. kg/m 3 
320. kg/m 3 
2090. J/kg-°K 
2090. J/kg-°K 
2222. °K 
556. °K 

2.324 x io 6 J/kg 
2.324 x io 6 J/kg 
0.029 kg/g-mole °K 
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Table 5.- Comparison of the Exact Solution and the Numerical Solu- 
tion Obtained with = 5. x 10^ 1/m for a Quasi-Steady 
State Condition. 


Parameter 

Numerical 

Solution 

Exact 

Solution 

% Error 

kg/m^sec 

7.304 x io -2 

7.185 x io -2 

1.66 

kg/m^sec 

7.301 x io -2 

7.185 x 10 -2 

1.61 

£ f m 

2.924 x io -3 

2.973 x io -3 

-1.65 
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Thus the assumption of local thermal equilibrium between the pyrolysis 
gases and the char layer was satisfied. Results from this set of 
calculations shown in Fig. 9 are within 1% of the exact solution. 

Note that the system reached a quasi-steady-state condition after only 
30 sec. The near discontinuity in the surface removal rate curve 
illustrates the three regimes of mass removal at the surface. The 
initial segment of the curve represents that portion of time when 
oxidation of the char layer was governed by the exponential rate 
equation. The second portion of lesser slope represents the time 
period when the rate of oxidation of the char was governed by the rate 
of diffusion of oxygen through the boundary layer. The final portion 
of the curve represents the time during which the char layer was 


subliming. 
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Time, sec 


Figure 9.- Numerical results for m s , m g , surface temperature, and 
pyrolysis temperature for a case run to quasi-steady-state 
condition. 


CHAPTER VIII 


RESULTS AND DISCUSSION 

The analysis of heat transfer and ablation mechanisms present in 
ablative thermal protection systems during entry is of major importance 
in the design of heat shields for aerospace applications. The role 
that ablation analysis plays in the total program of heat shield 
design is shown in Fig. 10. The first stage of the program involves 
defining the entry environment. This definition is obtained from tra- 
jectory analysis experts. Once the environment is defined a heat 
shield material can be selected - the material may be one of a family 
of existing materials or it may be necessary to develop a new material 
which possesses characteristics required for a particular trajectory. 
Thermo-physical property data are then obtained. The definition of the 
environment and the material characterization are then used in a com- 
puter program to determine the response of the material to entry 
conditions. Because of uncertainties in the material characterization 
and simplifying assumptions made in the analysis, it is necessary to 
have checks on the results. Initially, the material is subjected to 
simulated entry conditions in our ground test facilities. Later the 
material may be flight-tested. There frequently is feedback from the 
analysis and ground test phases to the materials development phase to 
obtain improved materials. It is sometimes necessary to adjust the 
property data which typically contains many uncertainties to obtain 
good agreement between numerical and experimental data. Once the 
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15 7 



Figure 10.- The role of ablation analysis in the design of thermal 
protection systems for aerospace applications. 
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computed results are found to be satisfactory the analysis is used to 
determine the amount of ablation material required for the mission. 

Results from a typical computer calculation for an ablation system 
subjected to a square heat pulse are presented in Figs. 11-13 as an 
illustration of the type of data available from this analysis. The 
heating rate, enthalpy, and pressure histories for this calculation 
are given in Table 6. The ablation system properties considered in 
this calculation are those given in Table 2. Figure 11 shows time 
histories of surface removal rate, pyrolysis rate, char thickness, 
char surface temperature, and pyrolysis gas temperature at the surface 
for this calculation. Of particular interest in Fig. 11 is the 
short time during which the mode of performance is highly transient. 
After 100 seconds the temperature and mass transfer rates are changing 
much slower than initially. The spike in m occurring at 10 sec 

s 

corresponds to the rapid increase in system temperature at initiation 
of heating. The sharp drop in A results from the growth of the char 
layer which insulates the pyrolysis zone and the blocking effect of the 
pyrolysis gases which reduces the rate of heat transfer to the char 
surface. The substantial difference in temperature of the char and 
pyrolysis gases at times lesq than 50 sec results from two factors — 1) 
Because of the thin char layer at early times, the fluid mechanical 
time is very small as is the energy transfer per mass of pyrolysis gas; 
and 2) For very low surface pressures, the reduction in gas temperature 
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Table 6. - Trajectory Data Used ia Making Calculation for a Typical 
Ablation System. 


Parameter 

Value 


q c ,W/m 2 , at 



time, sec 



0 

2.162 x 

io, 3 

10 

8.0 x 

10^ 

1000 

8.0 x 

10 5 


p w , N/m 2 , at 
time, sec 


0 

1.0 x 

IQ'* 

9 

1.0 x 

10“* 

29 

9.0 x 

io-J 

39 

1.0 x 

10 J 

1000 

1.0 x 

10" 1 

» 0/kg 

3.1 x 
fl.23 

10 5 
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time, 10^ 


sec 


Figure 11.- Typical time histories of m g , fhg, l $ surface temperature, 
and pyrolysis gas temperature at the surface for an 
ablation system subjected to a square heat pulse. 
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associated with expansion of the pyrolysis gas flowing through the char 
layer is appreciable. The rate controlled and diffusion controlled re- 
gimes of surface oxidation are obvious in Fig. 11. The initial steep 
slope (highly temperature dependent) is associated with the rate controlled 

oxidation regime. The lii curve undergoes an orderly transition on the 

s 

much flatter region which corresponds to the diffusion controlled 
oxidation regime. 

Figures 12 and 13 show profiles of pyrolysis gas temperature, 
molecular weight, mass flow rate, and pressure and char layer temperature 
and porosity at times of 50 and 500 sec, respectively, for the case 
whose data are presented in Fig. 11. Note that x = 0 is the char layer 
surface and x * 1 is the pyrolysis zone. Of particular interest in 
Fig. 12 is the greater temperature difference between the char layer and 
pyrolysis gas near the pyrolysis zone. The difference in temperature is 
greater in this region because of the larger gradient in char layer 
temperature. As the pyrolysis gas temperature increases to about 1200° 

K the chemical reactions and mass transfer processes within the system 
become significant. The decrease in molecular weight results from a 
breaking down of larger molecular weight species and loss of carbon 
through deposition of solid carbon in the porous char layer. The rate 
of carbon deposition is reflected in the reduced local mass flow rate 
(m) . The net carbon deposited is indicated by the porosity profile. 

The profiles in Fig. 13 are of the same form as those in Fig. 12. 
Because of the larger char layer thickness at 500 sec the pyrolysis gas 
temperature is nearer the char layer temperature in the region near 


the surface. 
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Figure 12,- Profiles of pyrolysis gas temperature, char layer 
temperature, pyrolysis gas molecular weight, char 
porosity, local mass flow rate, and pyrolysis gas 
pressure at a time of 50 sec for the case repre- 
sented in Fig, 11, 



163 



Figure 13*- Profiles of pyrolysis gas temperature, char layer 
temperature, pyrolysis gas molecular weight, char 
porosity, local mass flow rate, and pyrolysis gas 
pressure at a time of 500 sec for the case repre- 
sented in Fig. 11. 



CHAPTER IX 


SUMMARY 

The differential equations governing the transient response of a 
one-dimensional ablative thermal protection system undergoing stagnation 
ablation have been derived for the general case of thermal non- 
equilibrium between the pyrolysis gases and the char layer and kineti- 
cally controlled chemical reactions and mass transfer between the 
pyrolysis gases and the char layer. The boundary conditions have been 
written for the particular case of stagnation heating with surface 
removal by oxidation or sublimation and pyrolysis of the uncharred layer 
occurring in a plane. 

The governing equations and boundary conditions have been solved 
numerically using the modified implicit method (Crank-Nicolson method). 
Exact solutions were obtained for a number of simplified problems. 
Numerical results compared favorably with exact results in every 
instance. 

Numerical results were presented for a typical ablation system 
subjected to a square heat pulse. The effects of chemical reactions 
and mass transfer are pronounced. 
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APPENDIX A 
GENERAL FLOW CHART 
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Transfer To Subroutine CHCOM: 
Determine Chemical Reaction Rates 
Of All Species 


Calculate Coefficients Of T s Eq. 



Calculate Coefficients Of P^E 


Calculate Local Gas Densit 



Transfer to Subrou- 
tine PDE1: Calculate 
Tri-diagonal Matrix 
Coefficients and 
Solve Matrix for 

T s 


Transfer to Subrou- 
tine PDP: Calculate 

Tri-diagonal Matrix 
Coefficients and 
Solve Matrix for P 


Less Than Min. 
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Greater Than 1 


Check Iteration Count 
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APPENDIX B 

PROGRAM USAGE INSTRUCTIONS 

This program calculates the transient response of a one-dimensional 
ablative thermal protection system subjected to stagnation heating. It 
treats thermal non-equilibrium between the pyrolysis gases and the char 
layer, mass transfer between the fluid and solid phases, and a total of 
nine chemical reactions involving twelve gaseous species plus solid 
carbon. Surface removal by oxidation or sublimation and pyrolysis of 
the uncharred material occurring in a plane are considered. It con- 
siders a single layer of ablation material backed up by a single layer 
of insulation material with heat sinks between the ablation material 
and the insulation and behind the insulation. A maximum of 50 stations 
each may be considered for the char layer and the uncharred layer of 
the ablation material and a maximum of 10 stations may be considered 
for the insulation. 

INPUT 

FORTRAN IV NAMELIST with the names PERM, PIKUP, and LIST is used 
to load the input data. PERM contains physical constants, program 
constants and tables of thermodynamic and chemical kinetics data which 
are considered to be permanent inputs. PIKUP contains initial solutions 
plus selected program constants and material properties. These data 
are changed when beginning a computer calculation at some time other 
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than 0. seconds. LIST contains those data and system parameters which 
are most frequently changed from one calculation to another. The 
following list contains the input variables with the dimensions used 
in the program. . The NAMELIST name containing each variable is indicated 
in its description. The size of an array is limited to the dimensions 
stated. 

FORTRAN 

VARIABLE DESCRIPTION 

AC Specific reaction rate constant for first order oxidation 

of char layer (LIST) . 

ACEF(12) Specific reaction rate constant for forward chemical 
reaction (PERM) . 

ACER(12) Specific reaction rate constant for reverse chemical 
reaction (PERM). 

AEXP Specific reaction rate constant for pyrolysis of uncharred 

material (LIST). 

ALFC Weight factor for transpiration effectiveness of mass 

removal by oxidation or sublimation (LIST). 

ALFP Weight factor for transpiration effectiveness of pyrolysis 

gases (LIST). 

ALPHA Absorptivity of char surface (LIST). 

BC Activation temperature for first order oxidation of char 

layer (LIST). 

BCEF(12) Activation temperature for forward chemical reaction 
(PERM) . 

BCER(12) Activation temperature for reverse chemical reaction 
(PERM) . 

BEXP Activation temperature for pyrolysis of uncharred material 

(LIST) . 

CE Mass fraction of oxygen at edge of boundary layer (LIST) . 
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CPKT (40,12) Table of gaseous species heat capacity versus temperature 
(PERM) . 

CPPPV Constant heat capacity of insulation layer (LIST). 

CPPT(40) Table of uncharred material heat capacity versus 
temperature (LIST) . 

CPSV Constant heat capacity of char layer (LIST). 

CRNI Crank-Nicolson factor, 1/2 for modified implicit solutions 

(PERM). 


DHC 

DHP 

DIFER 

DRHO 

DT 

DX 

DX1 

DXP 

DXP1 

DXPP 

EPSP 

EPSS 

ETA(50) 

HC 

HE 


Heat of combustion of char layer (LIST) . 

Heat of pyrolysis of uncharred material (LIST). 

Convergence criteria for solid temperature equation (PERM). 

Difference in density of uncharred material and density 
of char layer at the pyrolysis zone (LIST). 

Time increment (PIKUP) . 

Distance between finite difference stations in char layer 
in region of course grid spacing (PERM) . 

Distance between finite difference stations in char layer 
in region of fine grid spacing (PERM). 

Distance between finite difference stations in uncharred 
layer in region of course grid spacing (PERM). 

Distance between finite difference stations in uncharred 
layer in region of fine grid spacing (PERM) . 

Distance between finite difference stations in insulation 
layer (PERM). 

Emissivity of radiating heat sink surface behind insulation 
layer (LIST) . 

Emissivity of char surface (LIST). 

Porosity of char layer (PIKUP). 

Heat of sublimation of char layer (LIST). 

Enthalpy of free stream (LIST) . 
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HKT(40,13) 

HSTT(40) 

HTSK 

HTSKP 

I 

IL 

IOPTI 


Table of gaseous species enthalpy versus temperature (PERM) . 
Table of char layer enthalpy versus temperature (PERM) . 

A 

Value of pCp£ for heat sink at uncharred layer insulation 
layer interface (LIST) . 

A 

Value of pCp£ for heat sink behind insulation layer (LIST) . 
Number of finite difference stations in char layer (PERM) . 
Thickness of insulation layer (LIST) . 

Trigger for selecting method of computing pyrolysis rate 
(LIST). 


IOPTP Trigger for selecting method of determining wall pressure 

(LIST) . 


IOPTI 


Trigger for selecting method of computing surface removal 
by sublimation (LIST) . 


IZ 

ITR 


Total number of finite difference stations in char layer, 
uncharred layer and insulation layer (PERM) . 

Maximum iteration count (LIST) . 


JK 


Number of finite difference stations in uncharred layer 
(PERM) . 


KPPI 

KPPV 
KPT (40) 

KSPI 


Thermal conductivity of uncharred layer at pyrolysis zone 
(PIKUP) . 

Constant thermal conductivity of insulation layer (LIST). 

Table of uncharred material thermal conductivity versus 
temperature (LIST) . 

Thermal conductivity of char layer at pyrolysis zone 
(PIKUP) . 


KSPI Thermal conductivity of char layer at surface (PIKUP). 

KST(40) Table of char layer thermal conductivity versus temperature 

(LIST) . 


KT Number of gaseous species considered (PERM) . 

KUPT(40,12) Table of gaseous species thermal conductivity versus 
temperature (PERM) . 


t . 3 
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L 

LAM 

LP 

LPMIN 

M(13) 

MCPP 

MFK(50 , 12) 

MFKI (12) 

MGDOT 

MKP 

MKS 

MNO 

MQC 
MS DOT 
MSQPT 

MUKT (40,12) 

NCPP 

NKS 

NNO 

NQC 

NRCT 

NSQPT 

P 


Initial thickness of char layer (PIKUP) . 

Ratio of mass char layer removed to free stream oxygen 
consumed in first order oxidation of char (LIST). 

Initial thickness of uncharred layer (PIKUP) . 

Minimum thickness of uncharred layer (PERM) . 

Molecular weight of chemical species (PERM). 

Order of interpolation in CPPT (LIST). 

Initial mole fraction of gaseous species (PIKUP). 

Mole fraction of gaseous species at pyrolysis zone (LIST). 

Initial rate of pyrolysis of uncharred layer (PIKUP) . 

Order of interpolation in KPT (LIST) . 

Order of interpolation in KST (LIST) . 

Order of interpolation in HSTT , HKT, CPKT, MUKT and KUPT 
(PERM) . 

Order of interpolation in QCTAB (LIST) . 

Initial rate of surface removal (PIKUP). 

Order of interpolation in SQPT (LIST). 

Table of gaseous species viscosity versus temperature (PERM). 
Number of entries in KPT (LIST) . 

Number of entries in KST (LIST). 

Number of entries in HSTT, HKT, CPKT, MUKT and KUPT (PERM). 
Number of entries in QCTAB (LIST) . 

Number of chemical reactions considered (PERM) . 

Number of entries in SQPT (LIST) . 

Initial pyrolysis gas pressure (PIKUP) . 


O 
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PMV 

PRNTFRQ 

PROPC 

PTIME 

QCTAB(40) 

QRS 

RAD 

RHOPPV 

RHOST 

RU 

SGMA 
SQPT (40) 

T 

T1BAR 
TCPP(40) 
TEMP (40) 
TIBAR 
TIME 

TIMET (40) 

TKP(40) 

TKS(40) 

TMPRESS(40) 

TRAB 

TREF 


Constant permeability of char layer (LIST). 

Time interval for printing output (PIKUP) . 

Proportionality constant in expression for H^(LIST). 

Time at start of calculation (PIKUP) . 

Table of cold wall heating rate versus time (LIST) . 

Radiant heat transfer at surface (LIST). 

Vehicle nose radius for hypersonic velocities (LIST). 
Constant density of insulation layer (LIST). 

Theoretical density of char layer (LIST) . 

Universal gas constant (PERM). 

Stephan-Boltzman constant (PERM). 

Table of square root of wall pressure versus time (LIST) . 
Initial pyrolysis gas temperature (PIKUP). 

Sublimation temperature of char layer (LIST). 

Temperature table for CPPT (LIST). 

Temperature table for HSTT, HKT, CPKT, MUKT and KUPT (PERM). 
Maximum temperature of pyrolysis zone (LIST) . 

Time at start of calculation (PIKUP). 

Time table for QCTAB(LIST) . 

Temperature table for KPT (LIST) . 

Temperature table for KST (LIST). 

Time table for SQPT (LIST). 

Trigger for selecting blocking approximation (LIST) . 
Transpiration effectiveness (LIST). 

Initial char layer temperature (PIKUP) . 


TS 
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OUTPUT 

The computed results are available in tabular form. The following 
tabular data are printed at time intervals determined by the input 
PRNTFRQ. 

1. Time* sec. 

2. Current time increment, sec. 

3. Number of iterations required to obtain solution. 

4. Temperature of char layer surface, K. 

5. Temperature of pyrolysis gases leaving char layer, K. 

6. Ratio of energy conducted into char layer to cold wall heating 

rate. 

2 

7. Surface removal rate, kg/m -sec. 

2 

8. Rate of pyrolysis of uncharred layer, kg/m -sec. 

2 

9. Pyrolysis gas mass injection rate at surface, kg/m -sec. 

10. Char layer thickness, m. 

11. Uncharred layer thickness, m. 

12. Temperature at each station of char layer, uncharred layer 
and insulation layer, K. 

13. Porosity of char layer at each station. 

14. Pyrolysis gas temperature at each station, K. 

2 

15. Pyrolysis gas pressure at each station, N/m . 

16. Mole fraction of gaseous species at each station. 

17. Average molecular weight of pyrolysis gas at each station )? 
kg/m-mole. 

2 

18. Mass flow rate of pyrolysis gases at each station, kg/m -sec. 
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u 


C 

C 


c 

c 

c 

c 

»# 

c 

r* 

C 


c 


c 

n 

w 

C 

r 

c 

c 


r 

v-» 


C 


PROGRAM ABLATE ( I NP UT , OUTPUT , T APE5 = I NP UT , T AP E 2 = 0 JT P J T ) 


A NUMERICAL SOLUTION OF THE DIFFERENTIAL EQUATIONS GOVERNING THE 
TRANSIENT RESPONSE OF A ONE-D IMENS 1 0 V AL ABLATION SYSTEM INCLJDING 
EFFECTS OF THERMAL NON-EQUILIBRIUM, MASS TRANSFER, AND CHEMICAL 
REACTIONS. 

REFERENCE— CLARK, RONALD K.- A NUMERICAL ANALYSIS OF THE TRAN- 
SIENT RESPONSE OF AN ABLATION SYSTEM INCLUDING EFFECTS OF THER- 
MAL NUN-EQUILIBRIUM, MASS TRANSFER, AND CHEMICAL KINETICS. 
DOCTOR OF PHILOSOPHY DISSERTATION, VIRGINIA POLYTECHNIC IN- 
STITUTE AND STATE UNIVERSITY, 8L ACKSBJRG* VA. 1972. 

PRIMARY INPUTS 

DHC HEAT OF COMBUSTION OF CHAR LAYER 

DHP HEAT OF PYROLYSIS 

DRHO DENSITY CHANGE ACROSS PYROLYSIS INTERFACE 

DT TIME INCREMENT 

EPSP BACK SURFACE EMISSIVITY 

EPSS CHAR SURFACE EMISSIVITY 

HC HEAT OF SUBLIMATION OF CHAR LAYER 

HE ENTHALPY OF FREE STREAM 

HTSK VALUE OF THERMAL CAPACITY OF HEAT SINK AT BACK OF 

JNCHARRED MATERIAL 

HTSKP VALUE OF THERMAL CAPACITY OF HEAT SINK AT BACK OF 

INSULATION LAYER 

I OPT I TRIGGER FOR SELECTING METHOD OF COMPUTING PYROLYSIS 

RATE. (I0PTI=0 NO RESTRICTION ON TEMPERATURE OF PY- 
ROLYSIS ZONE- PYROLYSIS RATE COMPUTED USING ARR- 
HENIUS TYPE RATE EQUATION, IOPTI=I TEMPERATURE OF 
PYROLYSIS ZONE LIMITED TO TIBAR- PYROLYSIS RATE COM- 
PUTED USING ENERGY BALANCE WHEN TS ( I J = T I BAR 1 
I OPT 1 TRIGGER FOR SELECTING MODE OF BEHAVIOR OF SURFACE 

TEMPERATURE DURING SUBLIMATION. (I3PT1=0 NO RE- 
STRICTION ON SURFACE TEMPERATURE, I3PT1=1 SURFACE 
TEMPERATURE LIMITED TO TIBAR) 


A 1 
4 2 
A 3 
A * 
A 5 
A 6 
A 7 
A 8 
A 9 
A 10 
A 11 
A 12 
A 13 
A 14 
A IS 
A IS 
A 17 
A 18 
A 19 
A 20 
A 21 
A 22 
A 23 
A 24 
A 25 
A 26 
A 27 
A 23 
A 29 
A 30 
A 31 
A 32 
A 33 
A 34 
A 35 
A 36 
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c 

r 


v* 

c 


c 

c 


IUPTP 


K.T 

LOP 

NRCT 

OCTAB 

QRS 

RAD 

RHOST 

SUPT 

TIBAR 

T1BAR 


TRIGGER FOR SELECTING METHOD OF COMPUTING WALL PRES- A 37 
SURE. ( I OPT P= 1 USE TABLF LOOKUP, I3PTP = 0 COMPUTE A 38 
wALL PRESSURE FROM HYPERSONIC FLOW THEORY) A 39 
NUMBER OF GASEOUS SPECIES CONSIDERED A 40 
INITIAL THICKNESS OF UNCHARRED LAYER A 41 
NUM3ER OF CHEMICAL REACTIONS CONSIDERED A 42 
TABLE OF COLD WALL CONVECTIVE HEATING RATE VS TIME A 43 
RADIANT HEATING RATE A 44 
RADIUS OF BODY A 45 
THEORETICAL DENSITY 0* CHAR MATERIAL A 46 
FABLE OF WALL PRESSURE VS TIME A 4 J 
MAXIMUM TEMPERATURE OF PYROLYSIS ZONE JSED WITH A 48 
SUBLIMATION TEMPERATURE OF CHAR LAYER A 49 

A 50 


c 

CHEMICAL SPE 

CIES IDENTIFICATION- 



A 

5 i 


I . 

CH4 2. 

H2 

3. 

C2H4 

A 

52 

c 

4. 

C2H2 5. 

CO 

6. 

H2 0 

A 

53 

c 

7. 

NH3 8. 

N2 

9. 

C02 

A 

54 

z 

ID. 

HCN Li. 

C2H6 

12. 

C6H6 

A 

55 

c 

13. 

C (SOLID) 




A 

56 







A 

57 


FUR DOUBLE SUBS 

CRIPTEO 0U4NTITI 

ES- F 

IRST SUBSCRIPT REFERS TO 

A 

53 

r- 

L, 

REACTION, STATION, OR TEMPtRAT JRE 

AND SECOND 

SUBSCRIPT RE=ERS 

A 

59 


TO CHEMICAL 

SPECIES. 




A 

60 

C 






A 

61 







A 

62 


ARH ( 


150), ALPHB3C11J), ALPHB4(IiO), ALPHPl(lIO), AL°HP2(110), ALPHP3(IL 
20), ALPHP 4( 110), BET A1 ( 50 ) , BETA2I50), BETA3(53), YP(50), BRH(50), 
3 BETB3 ( 50 ) » 3ETP 1 ( 50 ) » BETP2(50), 8ETP3(50), CPK(50,12), BET32(50) 
4, C PKT ( 40 , 12 ) , CPKTVI40), CPP(IOO), CPPT(40), CPS<53), AL1(50), OE 
5B2( 50,12), D£B 3( 50 ) , DEL1(50,12), DEu2(50,12), DEL3(50), 05P1(50,1 
62), Dt P2 ( 50 , 12 ) , DEP 3(50), 0ETADX(50), AB2(50), R0HM(50), DKPDXtlO 
70), DKSOX ( 50) , DVDX150), AB3(50), TP(50), HA(50), P AMGDOT (50,12), 
8EPSB3I50), HK ( 50 » 1 3 ) » HKT(40,13), HKT V ( 40) , HR SUM ( 50) , HS(50), H ST 


A 

A 

A 

A 

A 

A 

A 

A 

A 


63 

64 

65 

66 

67 

68 

69 

70 

71 
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9(50), API ( 50 ) , HS TT ( 40 ) » KG(50), K=M100), K?T(40), KS(50), P(50), 
$T I ME T ( 40) , QC T AS ( 40) , TMPRES(40), SQPT(40), TCPP(40), TXP(40), EPS 
$P1 ( 50) , RHQP(IOO), RM ( 50 ) , ROM(50), TS(llO), EPSAK50), EPSA2(50), 
$ TSP(llO), V( 5 0 ) , MFKK12), EPSA3(50), EPSP2(50), EPSP3(50), 6PSB2 
$(50), PROM ( 50 ) , AM DOT ( 50) , AP(50), KPP(ilO), CPPP(llO), RHOPP(llO) 
$, ORODX ( 50) , YETA ( 50 ) » NRH0KU2), AT(50), ATS(liO), YTS(IIO), YT(5 
$0), YRHO( 50 ) , YRHOK( 50 ,12) , TKS(40), KST(40), PTS(LIO), PT(50), VC 
$ ( 50 ) , (JMBRQX ( 50 ) , 0T0X(50), AIMTK50), AIMT3(50), SPECIES(13) 

COMMON ACEF( 12) , ACER (12) ,BCEF(12 ) , dCER ( 12 ) , CRNI , KUP T ( 40 , 12 ) , < JPTV ( 
1 40 ),M(i3),MF* (50,12) ,MNU,NNQ,MU( 50) , MUKT( 40 , 12) , A UK TV ( 40) , PR ( 50) , R 
2(50,12) ,RH0(50),RH0K(50,12) ,RHOKP( 50, 1 2 ) , T ( 50 ) , T cMP ( 40 ) , NR CT , <T , RU 
3,NSTEP,R0CPM( 50) ,RS( 50) ,RHR( 50, 12) ,RHS( 50) » OHM 50,12) , DHJt 50, 12 I ,H 
4RJSUM ( 50 ) 

COMM UN /POE 1/ ALPHI1 , ALPHI 2 , ALPH I 3 , AL PH 1 4 , AL PH I P 1 , ALPH I P2 , AL PH I P 3 , 
1ALPHIP4,GAMMI 1 ,GAMMI2,GAMMI4,GAMMIPi, G AMMI P 2 , 3 AMM I P 3 , GAMM I P4, SGMA, 
2DX, ALPHA1, ALPHA2, ALPHP1 , ALPHP2 , ALPHB3, ALPHB4 , DT , L , Q , < S , LP , QP T , K SP 1 
3 ,TSP,DXP, IP , I , IG, IN, 101 ,KP,LPP, LPPP-XSPI ,KPPI , MGOOT , OHP , MGOOT P , QNE 
4T ,OPNET , KPPI P , GAMM 13 , IM, EPSS, EPSP ,0X1 , OXP 1 , ALPHA 4 , ALPHP 3 , ALPHP4, AL 
5PHA3,HTSK,HTS<P,I0PT1 , 1 OP TI , Tl 8 AR , T I 3 AR 

COMMON /POP/ PALI ( 50 ) , PAL2 ( 50 ) , P 4L3( 50 ) , PAL 4( 50) ,PAPi( 501 ,PAP2(50) 

I , PAP3( 50) ,PAP4(5J ) , P AB3 (50) ,PAB4(50) , PWP,PP(50),PM(50), PMU,PPM,PRH 
20 ( 50) , ETA ( 50) , ETAP( 50) ,AVGMF(50) ,AVGMFP(50) 

COMMON / T S / I PI , I Zl.KPP, GAMIPi, GAM IP 2 , GAM IP 3, GAM I P 4, GAM I PP 1, GAMIPP 
12,GAM1PP3,GAMIPP4,KAPIP1 , KAP I P2 , KAP I P 3 , KAPI P4 , K AP I P Pi , K AP I PP2 , IL , K 
2APIPP3,KAPIPP4,DXPP,KPPPIP,KPPPI I, l l 

EQUIVALENCE ( E PS A2 ,E PSB2 , EPSP2 ) , ( AB3 , DEB3 ) 

REAL KS,MU,MU< , < P PV, KP, M , L , LP , MS , MSDOT , MGDOT , MPDOT, KST ,KPT ,K OPT , MU 
1 KTV , MUKT, K UP TV, KG, LAM, KA,LPP,MFKI,LPPP, MFK, MGDOTP , <?PI,<SPI,XSP1,K 
2PPIP , IL ,KPP,KPPPI Z,KPPPIP,KAPIP1,KAPI P2 , KAP I P3 , KAP I P4 , K AP I PP 1 , KAP I 
3PP2 ,KAPIPP3 ,XAPIPP4, LPMIN, MSDOTP 

NAMELIST /PERM/ SGMA , I , JK,CRNI , KT,RU, M, ACEF, BCEF, NRCT , ACER, BCER, DX 

I I , DX , DXP , DXPP , I2,0IFER ,DXP1, LPMIN, TEMP ,MNO,NNO,HSTT , CPKT , HKT , KUPT , 
2MUKT, SPECIES 

NAMELIST / P I K J P / TS, P , T , ETA , MGOOT , MS 0 OT , MF K , L , LP , TI ME , PTI ME , OT , KSP 


A 72 
A 73 
A 74 
A 75 
A 76 
A 77 
A 78 
A 79 
A BO 
A 81 
A 82 
A 83 
A 84 
A 85 
A 86 
A 87 
A 88 
A 89 
A 90 
A 91 
A 92 
A 93 
A 94 
A 95 
A 96 
A 97 
A 98 
A 99 
A 100 
A 101 
A L02 
A 103 
A 104 
A 105 
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r> o o o o 


ll»KSPI»KPPI » PRNTFRQ A 106 

NAMELIST /LIST/ PkOPC, ALFC, ALFP, ALPHA, DHC, ITR, QRS , EPSS , EPSP , HCt RHO A 107 
1ST,RAD,T1BAR,DHP,LAM,CE,AC» BC ,HE , TR EF , TR AB , MFKI , AEXP,BEXP, ILtCPPPV A 108 
2 ,KPPV t RHOPPV,HTSK,HTSKP»CPSV,PMV,KPT,TKP,MKS» NX S , KS T , CPPT , TCP P , MCP A 109 
3PfNCPP»MKP* TIMET, 8CTAB , MQC ,NUC , TMPRES ,SQPT,MSQPT, NSQPT, TKS,NKP, I OP A 110 


4T1 , lOPTItTIBAR, IOPTP, DRHO A 111 

READ INPUT DATA A 112 

READ (5, PERM) A 113 

READ <5,PIKUP) A 1 1 A 

READ (5, LIST) A 115 

INITIALIZE PROGRAM CONSTANTS A 116 

KTT=KT+1 A 117 

KM=KT-2 A 118 

I M= I -1 A 119 

IN=I+1 A 120 

I N2 = I *2 A 121 

I P= I +JK A 122 

101= IP-1 A 123 

10=1 P-2 A 124 

NITC=0 A 125 

NIT A=0 A 126 

MS = M ( 13) A 127 

A I NT1 ( I )=0. A 128 

A INT3( I ) =0. A 129 

IP1=IP+1 A 130 

IZl=IZ-l A 131 

N IT=0 A 132 

NIT G=0 A 133 

I CHCOM = 0 A 134 

NT I ME = 0 A 135 

CONVERT INPUT DATA TO PROPER UNITS (SYSTEM INTERNATIONAL) A 136 

DATA FOR HEAT CAPACITY OF CHAR LAYER- SOLID CARBON- ARE IN°UT -A 137 

IN UNITS OF JOULES/KILOGRAM (.012 KILOGRAM/G-MQLE) A 138 

DATA FOR HEAT CAPACITY AND ENTHALPY ARE INPUT WITH ENERGY IN A 139 

UNITS OF THERMOCHEMICAL CALORIE (4.184 J/CAL) A 140 

DATA FOR VISCOSITY OF GASEUUS SPECIES ARE INPUT IN UNITS OF A 141 



/ 



UJ o 




1 


2 


c 


POISES (0.0000001 NEWTON-SECONO/METER SO PER POISE) A 142 
CPSV=.012*CPSV ' A 143 
DO I K=1,NRCT A 144 
BCEF(K)=4.134*5CEF(K) A 145 
ACER ( Kl =0. A 146 
BCER(K>=4.184*BCER(K) A 147 
DO 2 N=1 1 NNO A 148 
HSTT(N)=HSTT(N><‘4. 184 A 149 
DO 2 K— 1 » K.T A 150 
MUKT(N,K)=MU<T(N,K)*i.E-7 A 151 
KUPT(N,K)=<U?T(N,K)*4*184E-4 A 152 
IF (K.GT.KM) GO TO 2 A 153 
CPKT(N»K)=4.184*CPKT(N,K) A 154 
rtKT(N,K)=4.1B4*HKT(N,K) A 155 
CONTINUE A 156 
DO 3 N= 1 » NNO A 157 
WRITE INPUT DATA A 159 
HKTIN, 13)=4.184*HKT(N, 13) A 158 
WRITE (2, PERM) A 160 
WRITE ( 2t P IK 'JP ) A 161 
WRITE (2. LIST) A 162 
INITIALIZE ALL PAR AME TE RS A 163 
KS( 1 ) *KSPi A 164 
KS(I)=KSPl A 165 
KP ( I ) = KSP I A 166 
MGDOTP=MGOOT A 167 
MSDQTP=MSDGT A 168 
LPP=L A 169 
LPPP=LP A 170 
QPNET=SGMA*EP$P0TS(IZ>**4 A 171 
DO 6 N=i » I A 172 
DET ADX( N)=0 . A 173 
DRODX(N) =0. A 174 
AMDOT(N)=MGDOT A 175 
PP(N)=P(N) A 176 
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ft H U ( N ) = 0 . A 177 

RH$(N)=0. A 178 

RS ( N ) =0 . A 179 

ftUM ( N ) = 0. A 100 

DO 4 K.I = 1 » <T A 181 

RHOK(N»KI)=P(M)*M(KI)*MFK(NtKl)/(RU*T(Nl) A 182 

R0M(N)=R3M(NM-RH3K(N,KI)/M(KI] A 183 

RHOKPt N»KI)=RH0K(N»KII A 184 

DHJ(N»KI)=0. A 185 

R ( N t K I) = 0 • A 186 

RHft ( N» KI ) =0. A 187 

4 RH3(N)=RH3(N)+RH3K(N*KI ) A 188 

PROM ( N) =ROP ( N ) A 189 

V(N)=-MGDUTP/(RHC(N)*cTA(N) ) A 190 

ROCPM(N)=P(N)*230.7(RJ*T(N)» A 191 

00 5 K= 1 1 KT A 192 

5 PAMGDOT 1Ni< ) = -RH3K (N»K )*V( N ) A 193 

DVOX ( N ) =0 . A 194 

i> PRHO(N)=ftHQ(Nl A195 

DO 7 N= 1 » I P A 196 

TSP(N)=TS(NJ A 197 

PTS(N)=3J0. a 198 

IF (N.GT.I > 30 TJ 7 A 199 

PT ( N ) = 300 . A 200 

AP ( N ) =0 . A 201 

TP ( N J = T( M ) A 202 

ETAP(N)=.85 A 203 

1 CONTINUE A 204 

DO 8 N= IP » IZ A 205 

PTS(N)=300. A 206 

TSP(N)=TS(N) A 207 

8 CONTINUE A 208 

OCT = SGMA*fcPSS*TS( l)**4+KSU)*( li.*TS{l)-18.*TS(2H-9.*TS(3>-2.*TS(4 A 209 

1 ) ) f <6.*DX1*L) A 210 

OPT=$GMA*EPS$*TS( 1 )**4+KS ( 1 ) * ( 1 i .*TS( 1 ) -18 . *TS ( 2 ) *9 .*TS (3)-2. *TS < 4 A 211 
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O 


lll/(o. * D X 1 * l ) A 212 

GO TO 12 a 2H 

BEGIN 1 V- K ATI ON A 214 

CONT 1 Nil E A 215 

IT (NITG.tJ.O) GO TO 12 A 216 

C cSTIMATt SOLUTION AT Nt XT TIME STEP A 217 

0011N=1»IZ A 218 

TS(NI=TS(N)+YTS(N)*DT A 219 

IF (N.GT.i ) GO TO 11 A 220 

KHU( N) = RHU( N) ♦ YPHC (N ) *.')T A 221 

T(N)=T(N)*YT(N»*JT A 222 

P(N)=P(N)+YP(N)*DT A 223 

ETA(N)=ETA(N)fYtTA(N»*OT A 224 

DO 10 K =1 »KT A 225 

10 RHOK(NfK) = RH0K(NtK)«-YRM0K(N,K)*DT A 226 

1 1 CONT INUE A 227 

12NIT=NIT+1 a 228 

RHGSO=RHOST*( 1.- iTM ill A 229 

C DETERMINE hf ATlNG AT BACK SURFACE A 210 

QNtT=SGMA*EPSP*TS( IZ )**4 A 231 

C CHECK ITtRATIOM COUNT- RCDJCh TIME STEP IF MAX ITC3 F X C : c 0 E 1 A 232 

I F ( N I 1 . L T . I T ■< ) G 0 T t J 1 2 a 7 3 * 

TIME = T IM.-.-OT A 23h 

MGDOT=MGUOTP a 235 

DO 14 N = 1 , I Z A 236 

IF (N.GT. I ) GO TO 14 A 237 

DO 13 K = i * KT A 2 3 B 

13 RHOK < N » K ) = R H OK P ( N ♦ K ) A 2 39 

T(N)=TP(N» A 240 

RHO(N)=P=tUG(NI A 241 

P(N)=PP(N) A 242 

ETA(N) = f-TAP(Nl A 243 

14 TS(N)=ISP(NJ A 244 

HBF KN2 = PHBF KN2 A. 245 

HBR K02= PHBhK 12 A 246 
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L=LPP A 247 

|_P = LPPP A 248 

DT=.75*DT A 249 

GO TO 109 A 250 

15 CONTINUE A 251 

C A 252 

C COMPUTE MASS RATE GF PUROLYSIS GAS GENERATED AT INTERFACE A 253 

C A 254 

C CALCULATE PYROLYSIS RATE A 255 

C CHECK I OPT I- I 0 P T I = 1 AND TS(I)=TI3AP USF. EU i-42 FOR MGOOT A 256 

C IOPT 1=0 USE EQ 3-44 FOR MGOOT A 257 

IF (NIT.3T.1) GO TO 20 A 258 

SP=1. A 259 

IF ( TS( 1 ) .L£. ( TI 3AR-6. ) ) GO TO 16 A 260 

SP= ( T I B AR - TS ( I ) ) / 6 • A 261 

IF (SP.LT.O.) SP = 0. A 262 

16 CONTINUE A 263 

IF ( (MGOOT. GT.l.E-5). AND. (NITA.EQ.l)) GO TD 17 A 264 

N I TP=0 A 265 

IF (MGDOT.GT.l.E-3) NITP=1 A 266 

IF ( (NITP.tO.l > .AND. (NITA.EQ.Oi ) DT = . Ot> 25 A 267 

17 T IME = T I ME +DT A 2 68 

GO TO 19 A 269 

18 MGDOT=AEXP*£XP (-3fcXP/TS< I) ) A 270 

19 CONTINUE A 271 

IF (MGDOT.GT.O. ) GO TO 21 A 272 

MGD0T=0 • A 273 

IF ( I OPT I . E Q. 0 ) GO TO 21 A 2 74 

TS( I )=TS( I I-1.5-4 A 275 

20 CONTINUE A 276 

IF (IOPTI.tQ.3) GO TO 18 A 277 

AMGDOT = AEXP*EXP(-BFXP/TS< I) ) A 278 

8MGD0T=(-KS( I ) * ( L 1 .*TS ( II- 18 . *TS ( I M ) 4-9 . *T S ( I - 2 ) -2 . *T S ( I -3 ) ) / ( 6 . *D X A 279 

1*L >-KP< I )*< ll.*TS(I)- 18. *TS( I«-l )*9.*TS( H-2) -2. *TSII*3) ) 7(6.* 0XP1*L A 280 
2 P ) ) { DHP A 281 


186 



MGDOT = SP*AMGQOT'M 1 .-SP)*BMGDOT A 282 

21 CONTINUE A 283 

MGD0T=.or5*MSD3TP+.125*MG0GT A 284 

IF (NIT.EQ. 1) GO TO 22 A 285 

GO TO 2o A 286 

22 CONTINUE A 287 

IF (NITC.EQ.O) GO TO 23 A 288 

AMDOTm = AMDOT(l)*MGDOT/MGDOTP A 289 

23 CONTINUE A 290 

C DETERMINE SURFACE KEATING ANO PRESSURE A 291 

CALL FTLJP (TIME, CC,MQC,NQC, TIMET, OCTAB) A 292 

IF (IOPTP.EQ.l) GO TO 24 A 293 

PWP=5.69306E6*RA0*(QC/HE )**2 A 294 

GO TO 25 A 295 

24 CONTINUE A 296 

CALL FTLJP ( TIMh,PW,MSQPT,NSOPT,TMPR=S,SOPT) A 297 

PW=PW**2 A 298 

PWP=1.013E5*PW A 299 

25 CONTINUE A 300 

P(1)=PWP A 301 

26 CONTINUE A 302 

A MOOT ( I I = MG DOF A 3 03 

00 27 N = 1 , NNO A 304 

27 HKTV(N) = HK.T (N,3) A 305 

CALL FTLUP ( TS (1) , H0RKN2 , MNO, NNO, T EMP , HKTV > A 306 

DO 28 N= 1 , NNO A 307 

28 HKTV(N)=HKT(N|, 13) A 308 

CALL FTLUP ( TS ( 1 ) , HBR K02 , MNO, NNO , TE MP , HK TV ) A 309 

HW=.790795*HBRKN2+.209205*H8RK02 A 310 

C CALCULATE SURFACE REMOVAL RATE A 311 

C CHECK 10PT1- IOPT 1= 1 AND TS(1J=T18AR USE EQ 3-41 FOR MSDOT A 312 

C IOPT 1=0 USE EQ 3-36 FOR MSOOT A 313 

IF (NIT.GT.l) GO TO 29 A 314 

S=1 . A 315 

IF (TSID.LE.I T1BAR-22.U GO TO 29 A 316 
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S=< T1BAB-TS( l) 1/22. A 317 

IF (S.LT.O.l S = 0 . A 318 

29 CONTINUE A 319 

GCOND=KS< 1 )*U1.*TS( 1 1-18.*TS( 2 )*9.*TS( 3)-2.*TS(^)) n6.*OXl*U A 32 0 

KA=AC*EXP(-BC/TS( 1)1 A 321 

AMS DOT =KA*PW*CS*.90i/( i.«-KA*PH*(HE-H»l) / ( .032*LAM*QCT) 1 A 322 

8MS00T = (QCT + ALPHA*CRS-SGMA*EPSS*TS( l)**9-QCQND)/HC A 323 

MSDOT=S*AMSDJH-( l.-S )*BMSDOT A 329 

IF (MSDOT.GT.O.) GO TO 30 A 325 

M SD0T=0 . A 326 

IF (IOPT.EQ.O) GO TO 30 A 327 

TS ( 1 ) =TS( Il-l.t-9 A 328 

30 CONTINUE A 329 

MSD0T=.875*MSD0TP+.125*MSD0T A 330 

MPD0T = ALFC*MS00T*-ALFP*AMD0T(1 ) A 331 

C CALCULATE NET AERODYNAMIC HEATING RATE TO SURFACE- E9. 3-90 A 332 

QFAC=HE*.MPDOT/( QC*.029) A 333 

IF (QFAC.GT .2.25) GO TO 31 A 339 

QCT=QC*(l.-bW/HE )*(1 .-TREF*TRAB*.MP00r*Ht/(UC*.02/l-( 1 TR A 3 ) * ( . 72 9 A 335 

l*HE/(QC*.029)*MP00T-.13*(HE*MPD0T/( QC * . 029) 1 **2 1 1 A 336 

GO TO 32 A 337 

31 QCT=QC*(1.-HW/HE)*.09 A 338 

32 CUNTINUE A 339 

Q=UGT+AL !J HA*ORS+S*MSD0T*DHC-< l.-S) *MSDOT*HC A 390 

DDX=0X1 A 391 

C DETERMINE PROPERTY DATA FOR CHAR LAYER AND PYROLYSIS GASES A 392 

IF <T(20).GT.1000.1 ICHC0M=1 A 393 

X=-UDX A 399 

IF (NIT.3T.il GO TO 37 A 395 

00 39 N=5» I t 5 A 396 

J=N A 397 

IF (N.EQ.51 J=l A 398 

NSTEP= J A 399 

IF (T( Jl.LT. 299.1 GO TO 33 A 350 

C CALL SUBROUTINE VISC TO COMPUTE VI SC 3 S I T Y AND PRANOTL NUMBER OF A 351 
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c 

PYRLLYS IS GASES 

A 352 


CALL VISC 

A 353 

33 

CONTINUE 

A 354 

34 

CONTINUE 

A 355 


DO 35 N=2 » 9 

A 356 


ANJ=(N-1I 79. 

A 357 


MU( N ) = MU( 1 1 -*-AN J* ( MU( lOl-MUIl) ) 

A 358 

35 

PR ( N ) = PR ( l )+ANJ*( PR( IU )-PR ( 1) ) 

A 359 


DO 36 N=1 5 » I * 5 

A 360 


K0N = 4 

A 361 


APR=(PR(N)-PR(N-5) )/5. 

A 362 


AMU=(MU(N)-MJ<N-5) 1/5. 

A 363 


DO 36 J = l,4 

A 364 


PR< N-KON) =PR ( N-5 I + J* APR 

A 365 


MU ( N-KON)=MU(N— 5 1 +J*AMU 

A 366 

36 

KON*KON-l 

A 367 


PMU=MU( I ) 

A 368 

37 

CONTINUE 

A 369 


DO 53 N= 1 » I 

A 370 


CALL FTLJP (T(N)tHM N, 13 » » MNO,NNO, TEMP , HKTV ) 

A 371 


A VGMF ( N ) =0. 

A 372 


DO 3d K= 1 » KT 

A 373 


AVGMF(NI=AVGMF (N) ♦MFK(N»K)*M(K) 

A 374 

38 

CONTINUE 

A 375 


IF (N.EQ.21) DDX = DX 

A 376 


X=X+DDX 

A 377 


V C ( N )= ( MS DOT /RHOSO+X* (MGDOT 7DRHQ-MSD 3T 7RHQS0) 1 7L 

A 378 


IF (NITC.EQ.O) GO TO 39 

A 379 


IF (ABS(TS(N)-PTS(N) J.LT.5.) GO TO 40 

A 380 


PTS( N)=TS (N) 

A 381 

39, 

CONTINUE 

A 382 


CALL FTLJP (TS(N) *HS( N) ♦MNO,NNO,TE4P»HSTT) 

A 38 3 


IF (NITC.GT .0) GO TO 40 

A 384 


AVGMFP(N) = AVGMF(N ) 

A 385 


PMl N) =PMV 

A 336 
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CP SI N) =CP SV A 387 

43 CONTINUE A 388 

CALL FTLUP ( TS (N ) , KS ( N) , MKS,NKS , TKS t <ST ) A 389 

C NEGLECT HEAT CONDUCTION IN FLUID A 390 

NST £P=N A 391 

IF ( ICHCOM.EQ.O) GO TO 41 A 392 

C CALL SUBROUT 1 >1 E CHCOM TO DETERMINE CHEMICAL REACTION RATES OF A 393 

C EACH SPECIES A 394 

CALL CHCOM (TIME) A 395 

41 CONTINUt A 396 

IF (NITC.EQ.O) GO TO 42 A 397 

IF IABSITIN)-PT<N)).LT.5.1 GO TO 50 A 398 

PT(N)=T(N) A 399 

IF (T(N).LT .300. ) GO TO 43 A 400 

42 CONTINUE A 401 

43 CONTINUE A 402 

CALL FTLUP ( T (N) , HST ( N) » MNO, NNU» TEMP , HSTT ) A 403 

DO 45 K = 1 » KM A 404 

DO 44 J = 1 » NNO A 405 

CPKTVI J)=CPKTl J,K) A 406 

HKTVI J)=H<T< J,K) A 407 

44 CONTINUE A 408 

CALL FTLJP I TIN) ,HK< N, K) ,MN0,NN0,T5MP ,HKTV) A 409 

CALL FTLUP IT IN)»CPK(N»K)» MNO , NNO »TEMP,CPKW) A 410 

CALL FTLJP (TSIN) ,DHK(N,K), MNO, NNO, TEMP, HKTtf) A 411 

45 CONTINUE A 412 

NIT S=0 A 413 

46 CONTINUE A 414 

IF (TIN). GT. 15)0. | GO 70 47 A 415 

CPK ( N » 1 1) = 1 2. 88203 5E 00+2 .*5. 16099t-Q3*T I N) + 3 • *3.9 71 480E-06*T I N ) *#2 A 416 

i-4.*3.708198S-09*T(N)**3+5.*8.949908;-13*TlN)**4)MU A 417 

CPK(N»12) «( 3.51118 6E-01+2.*1. 876996 E- 02 *T( N)**3. *2.643369 E”36*T(N)* A 418 

1 *2-4. * 1.877262E-09*T(N)**3'fr5.*6.077093E-13*T(N)< t *4)*RU A 419 

HK(N,ii ) = (2.882035E00*T(N)«-5.160995E-03*T(N)**2«-3.971480E-06*T(N)* A 420 

1»3-3.708198E-09*TIN)**4+8.949908E-13<‘T( N)**5)*RU-i. 157984E04 A 421 
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HK(N,12) = ( 3.51lia6E-0l*T(NM-i.876996E-02*T< N)**2-2.649069E-06*T(N) A 422 
1 **3-1. 677262 E-09*T ( N 1**4 +6.077093E- 1 3*T ( N )**5)*R J*l. 14 3849E04 A 423 

GO TO 43 A 424 

47 CPK<N,ll) = (l.4308G4E00+2.*9.444913e-J3*T(N)- 3.*2.348033e-06*T(N)** A 425 

12-4.*2.968006E-10*T(N)**3-5.*1.489961E-14*T(NI**41*RJ A 426 

CPK ( N» 12) = (4.61967 IE 00 *2 • * 1 .44048 li-02* T( NJ-3.*3. 74845 1 E-06* T ( N) ** A 42 7 
12*4.*4. 894085E-1 0*T( N I **3-5 . *2 .5 15503 E- L4*T ( N ) **4 ) *RU A 428 

HK ( N 1 1 L ) = ( 1 • 430804E00*T ( N) +9.4449 13E-03*T(N)**2-2.348033G-06*T(N)* A 429 
1*3-2.968006E-10*T < N ) **4- 1 .489 96 IE- 1 4* T ( N)**5) *RU-1. 157984E04 A 430 

HK( N,12i=(4.619671E00*T( N ) + 1 . 440481 E - 02*T < N ) * * 2-3 . 7 484 5 1 E-06 *T ( \| ) * A 431 
1*3+4.894085E-10*T<N)**4-2.515503E-14*T< N)**5)*1U»- 1. 143349E04 A 432 

48 CONTINUE A 433 

IF <NITS.E0.11 GO TO 49 A 434 

TSAVE=T <N) A 435 

CPSAll=CPK(N,ll) A 436 

CPSA12=CPK(N,12) A 437 

H SA 1 1=HK( N » 1 1 ) A 438 

HS A 12=HK ( N » 12 ) A 439 

T(N1=TS(N) A 440 

NITS=NITS*1 A 441 

GO TO 46 A 442 

49 T(N)=rGAVL A 443 

DHK ( N » 1 1 ) = HK ( N'» 1 1 1 A 444 

UHK (Ntl2)-HK(N»12) A 445 

HK ( N » 1 1 ) = HSA 1 1 A 446 

HK ( N » 12 ) =HS Al 2 A 447 

CPK<N»ll)=CPSAll A 448 

CPK( N»12)=CPSA12 A 449 

DHJ(N»6)=2.*0HK(N»51 — HK( N» 9 1 -HS ( N ) A 450 

DHJ ( N» 7 ) = DHK CN»5)*DHK(N»2 )— HK ( N » 6 ) -HS ( N 1 A 451 

OH J ( N» 9 ) =DHK( N » 1 0 ) +DHK ( N f 2 ) -HK( N»7J-HS(N) A 452 

50 CONTINUE A 453 

HR JSUM( N) =0. A 454 

HRSUMi N ) =0. A 455 

RM(N)=0. A 456 
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R0CPM(N)=0 • A 457 

RCJHM ( N ) =0. A 458 

DO 51 K=i,KT A 459 

51 RM(N)=RM(N)+R(N,K)*M(K) A 460 

DO 52 K=l,KT A 461 

HRJSUM(N) =HRJSUM(N)+RHR(N,K)*DHJ(N,'<) A 462 

HRSUM(N)=HRSUM(N)+R< N,K)*HK(N,K) A 463 

ROHM(N)=ROHM(N)+RH3K<N,K)*HK(N»K)7M( <) A 464 

52 ROCPMt N)=ROCPM(N) + RHOM N , K) *CPM N, K ) / M ( K ) A 465 

53 CONTINUE A 466 

DMBRDX(l) =(-ll ,*AVGMF( l )+18.*AVGMF( 2)-9.*AVGMF( 3 J +2 . *A VGM F ( 4 ) ) /( 6. A 467 

1*0X1) A 468 

DTDXm = (-il.*Tmna.*T(2)-9.*T(3)+2.*T( 3)) n 6.*DX11 A 469 

DDX=DX 1 A 470 

DO 55 N=2 » IM A 471 

IF (N.EQ.2Q) GO TO 54 A 472 

0MBRDX(N)=(AVGMF(N+1)-AVGMF(N-1))/(2.*DDX) A 473 

DTDX(N) = <T(NU)-T (N-l) )M2.*DDX) A 474 

GO TO 55 A 475 

54 OMBRDX (N) s (DXi**2*AVGMF(N+l)-(DXl**2-DX**2)*AVGMF(N)-0X**2*AV3MF(N A 476 

1-1))/(DX1*DX*(DX1+DX)) A 477 

DT0X(N) = (UXl**2*T(N+l)-(DXl**2“!JX**2)*r(N)-DX**2*T( N- 1 ) ) H DXl *DX* ( A 47 8 

1DXI+0X) ) A 479 

OUX=DX A 480 

55 CONTINUE A 481 

DMBRDX(I)=< ll.*AVGMF (I)-18.*AVGMF( I M ) *9 . * AVG MF ( I - 2 ) -2 . * AV GMF ( 1-3) ) A 482 

1/(6. *DX) A 483 

DTDX(I )=( li.*T(I )-l8.*T( IM)+9.*T ( I-2)-2.*T( 1-3) )/ (6 .*DX) A 484 

PPM= PM( I ) A 485 

C DETERMINE PROPERTIES OF UNCHARRED LATER AND INSULATION LAYER A 486 

DO 57 N* 1 » I P A 487 

IF (NITC.6Q.0) GO TO 56 A 488 

IF (ABS(TS(N)-PTS(N) ) . LT . 5* ) GO TO 57 A 489 

PTS ( N )=TS ( N ) A 490 

56 CONTINUE A 491 
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CALL FTLUP ( TS ( N) t KP ( N > » MKP , NKP , TKP » < PT ) A 492 

CALL FTLJP (TS(N)»CPP(N)»MCPP»NCPP»TCPP»CPPT) A 493 

RHOP ( N ) =5 76 • A 494 

57 CONTINUE: A 495 

IF (NITC.GT.O) GO TO 60 A 496 

DO 58 N=I t I A 497 

HA(N)=PROPC*ROCPM (N)*V(N )/PR( N) A 498 

58 CONTINUE A 499 

DO 59 N = I P » I Z A 500 

KPP(N)=KPPV A 501 

CPPPE N)=CPPPV A 502 

RHOPPIN )=RHOPPV A 503 

59 CONTINUE A 504 

KPPPI P=KPP< IP ) A 505 

KPPPIZ=KPP< I Z I A 506 

KSP 1 = KS( 1 ) A 507 

KSPI=KS( I ) A 508 

KPP I =KP ( I ) A 509 

KPP I P=K P ( IP ) A 510 

60 CONTINUE A 511 

DKSDXll )=(-ll.*KS(l)+18.*KS(2)-9.*KS( 3)+2.*KS( 4) ) 7( 6.*DXl) A 512 

OKSDXd ) = dl.*KS( I )-18.*KS( IM)+9 .*<S d-2 )-2.*KS( 1-3 ) ) / ( o.*DX) A 513 

DDX = DX 1 A 514 

DO 62 N=2 . I M A 515 

IF (N.EQ.20) SO TO 61 A 516 

DKSDX(N)=(KS(N+l)-K$(N-i) )7(2.*DDX) A 517 

GO TO 62 A 513 

61 DDX= DX A 519 

DKSDX(20)=<DXl**2*KS{2l)+(0X**2-DXl*#2)*KS( 20 ) -DX ** 2*K S ( 19) )/(DXl* A 520 

1 DX* ( DX1+0X) ) A 521 

62 CONTINUE A 522 

DKPDXd ) = {-U.*KP( I)+18.*KPdN)-9.*KPdN2) + 2.*KP( 1 + 4) )/(6.*DXPl) A 523 

DKPDXE IP) = ( ll.*KP( IP )-18.*KP( I31)+9.«KP( I0)-2.*X> ( IP-3) ) M 6. + 0XP) A 524 

DDX=OXPi A 525 

DO 64 N=1N, 101 A 526 
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IF (N.EQ. ( 1+20 ) ) GO TO 63 A 527 

DKPDX(N)=IKP(N+1)-KP(N-1))/(2.*DXP) A 528 

GO TO 64 A 529 

63 DKPDX( I+20)=(DXP1**2*KP( I +2 l ) +( DXP**2-DXP 1**2 ) ( I +20 )-DXP**2*KP I A 530 

1 1+19) ) /(0XP1*DXP* ( DXP1+DXP) ) A 531 

DDX=DXP A 532 

64 CONTINUE A 533 

C A 534 

C SOLUTION OF PARTIAL DIFFERENTIAL EQUATION FOR CHAR LAYER A 535 

C A 536 

C CALCULATE COEFFICIENTS IN DIFFERENTIAL EQ FOR SOLID TEMPERATURE A 537 

DO 66 N= 1 » I A 538 

ATS ( N)=TS (N) A 539 

ALPHAl(N) =(0KSDX(N)+L**2*(1.-ETA(N) ) * CPS ( N ) * RHOST / M S*V C < N ) ) /< S ( N ) A 540 
ALP HA2 ( N ) = 0 • A 541 

ALPHA3I N)=L**27KS <N)*(HA(N)*(TP(N)-TSP(N))+ETA(N)*(HST(N)*RS(N)+RH A 542 
1S(N)*HS(N)-HRJSUM( N) ) +RHOST*HS( N) /MS* ( ( ET A ( N ) -ET A P ( N ) ) / DT-VC ( N ) *DE A 543 
2TADXIN) )) A 544 

ALPHA4(N)=-(1.-ETA(N))*L**2*RHQST*CP$(N)/(MS*KS(N)) A 545 

IF (NITC.NE.O) GO TO 65 A 546 

iLPHPl ( N) =ALPHA1 (N) A 547 

ALPHP2 ( N) -ALPHA2 ( N ) A 548 

ALPHP3 ( N) =ALPHA3 (N) A 549 

ALPHP4(N)=AL 3 HA4(N) A 550 

65 CONTINUE A 551 

ALPH83(N)=CRNI+ALPHA3(N)+(i.-CRNI)*AlPHP3(N) A 552 

ALPH84(N)=CRNI*ALPHA4(N)+( l.-CRNI )*ALPHP4(N) A 553 

66 CONTINUE A 554 

IF (NITC.NE.O) GO TO 67 A 555 

ALPHIP1=ALPPA1 ( 1 ) A 556 

ALPHIP2=ALPHA2( I ) A 557 

ALPHIP3=ALPHA3( I) A 558 

ALPHIP4=ALPHA4 ( I ) A 559 

67 CONTINUE A 560 

ALPHI 1 =ALPHA1 ( I ) A 561 
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ALPHI2=ALPHA2(I) A 562 

ALPHI3 = AIPHA3( I I A 563 

ALPHI4=ALPHA4( I ) A 564 

DDX=DXP I A 565 

XP=0 . A 566 

00 68 N=I ,IP A 567 

IF (N.EQ.t 1+20) I DDX=DXP A 568 

ATS ( N) =TS ( N) A 569 

ALPHAl(N) =(DKPDX(NH-LP*RHOP(N)*CPP( N I * MGDOT * ( 1 . -X P I / DRHO I /K P ( N ) A 570 

XP=XP+DDX A 571 

ALPHA2 ( N) = 0. A 572 

ALPHA3(N)=0. A 573 

AIPHA4(N)=-RH0P(N)*CPP(N)*LP**2/KP(N) A 574 

ALPHB3(N)=0. A 575 

IF (NITC.NE.O) GO TO 68 A 576 

ALPHPI(N)=ALPHA1(N) A 577 

ALPHP2 (N)= AL PH A2 (N I A 578 

ALPHP3(N) =ALPHA3(M A 579 

ALPHP4(N)=ALPHA4(N) A 5dO 

63 ALPHB4(N)=CRNI*ALPHA4(N)+(i.-CRNI)*ALPHP4(N) A 581 

IF (NITC.NE.O) GO TO 69 A 582 

GAMMIP1=ALPFA1 ( 1 1 A 583 

GAMMIP2=ALPHA2(I I A 584 

GAMM IP3=ALPHA3 { I I A 585 

GAMMIP4=ALPHA4(I) A 586 

GAMIPP1=ALPHAI( IP ) A 587 

GAMI PP2 = ALPHA2 (IP I A 588 

GAMIPP3=ALPHA3(IP) A 589 

GAMI PP4= ALP HA4 (IP) A 590 

69 CONTINUE A 591 

GAMM 1 1 = ALPH A1 ( I ) A 592 

GAMMI2=ALPHA2( I) A 593 

GAMM I 3=ALPhA3(I) A 594 

GAMMI4=ALPHA4( I I A 595 
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GAMIP1=ALPHAI ( IP) A 596 

GAMIP2=ALPHA2( IP) A 597 

GAMIP3=ALPHA3( IP ) A 598 

GAMIP4=ALPHA4t IP) A 599 

DO 71 N= I P * I Z A 600 

ATS( N) =TS ( N) A 601 

ALPHA l ( N ) =0 • A 602 

ALPHA2 ( N ) =0 . A 603 

ALPHA3I N) =0. A 604 

ALPHA4<N)=-PHGPP(N)*CPPP(N)*IL**27<P;>( N) A 605 

IF (NITC.NE.J) GO TO 70 A 606 

ALPHP1(N)=ALPHA1(N) A 607 

ALPHP2(N)=ALPHA2 (N) A 608 

ALPHP3(N)=ALPHA3( N) A 609 

ALPHP4(N)=ALPHA4(N) A 610 

ALPHB 3 { N ) =0 • A 611 

70 CONTINUE A 612 

71 ALPH84(N)=C^NI*ALPHA4(N) + (1.-CKNI)<‘ALPHP4(N) A 613 

IF (NITC.NE.O) GO TO 72 A 614 

KAPI PP1=ALPHA1 (IP) A 615 

KAPIPP2=ALPHA2(IP) A 616 

KAPIPP3 = ALPHA3( IP ) A 617 

KAP1PP4=AL0H\4( I P) A 618 

72 CONTINUE A 619 

KAPI P1=ALPHA1 ( IP) A 620 

KAPIP2=ALPHA2( IP) A 621 

KAP I P3 = AL PH A3 ( IP) A 622 

KAPI P4=ALPHA4( IP) A 623 

C CALL SUBROUTINE PDE1 TO SOLVE FOR TS A 624 

CALL PDE1 ( TS » CRN I ) A 625 

C CALCULATE COEFFICIENTS IN DIFFERENTIAL EQ FOR P A 626 

DDX=DX 1 A 627 

DO 74 N = 1 * I A 628 

AP(N)=P(N) A 629 

IF (N.LQ.l) GO TO 74 A 630 

PAL 2 (N) = 2.*MU(N )*ETA(N )*L**2/(PM( N » *1 HO ( N ) *RU* T ( N ) ) M AVGMF ( N) * ( T ( N A 631 
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1 J-TPCN) )/ (DT*T (N) )-AVGMF(N)*VC(N)*OTDX(N) C N ) <- VC ( N I OM8R3XI N)-( AV A 632 
2GMF(N)-AVGMFP(N))/DT) A 633 

PAL3( N 1=2. *M'J(N)*ETA(NI*P(N)*RM(NM‘L**2/( PM (N)*RHO(N)) A 634 

PAL4(N)=-MU<N)*ETA(N>*AVGMF(N)*L**2/(PM(N)*RH0{N)*RU*T<N) ) A 635 

IF (N.EQ*I 1 GG TO 74 A 636 

IF (N.EQ.20) GO TO 73 A 637 

PAL1(N)=MU(N)*ETA ( N) *T < N ) / < PM ( N ) * AVGMF ( N) )*( PH ( N + l ) *AV GMF ( N + U / ( MU A 638 
1 (N+l )*ETA(N+1 )*T(N + l) )-PM(N-l)*AVGMF( N-l) /(MU(N-l)*STA(N-l)*T(N-l) A 639 
2) )/(2.*DOXH-MU{N)*ETA<N)*AVGMF(N)*L**2/<PM(NI*RH0m*RU*T(N) )*VC(N A 640 
3 1 A 641 

GO TO 74 A 642 

73 CONTINUE A 643 

DDX= DX A 644 

PALl(20) = MU(20)*ETA(20)*T(20)/(PM(201*AVGMF(20n*(0Xl**2*PM( 2U*AV A 645 

1GMFI 2I)/(MU<21)*ETA<21>*T<2in-( DX1**2-0X**2)*PM( 20 1 * A VGMF < 2 J 1 / ( MU A 646 
2(20)*tTA(20)*T(20) )-DX**2*PM( 19 ) ♦ AV GMF ( 19 ) / ( MJ (19 1 *cT A ( 19 1 *T ( 1 9 ) ) 1 A 647 
3 / ( UX1*DX*( DX1+DXJ 1+MUI 2 J 1 *t TA ( 2 0 1 * A VGMF ( 20 ) *L**2/ ( PM( 20)*RH0( 20 I *T A 648 
4(20)*RU)*VC<20 J A 649 S 

74 CONTINUE A 650 

PALi(I)=MU< I )*ETA( I)*TU)7(PM( I I *A VGMF < 1 1 )*( ll.*PH( I) * AVGMF < I) /( MU A 651 

1 ( I )*ETA( I )*TII) )-18.*PM( I Ml* AVGMF ( IM) / (MU I I Ml *ET A ( I M ) *T ( I M I ) *9.*PM A 652 

2 ( 1-2 )*AVGMF< I-2)/<MU<I-2)*ETA(I-2)*T(I-2n-2.*PMlI-3) *AVGMF< I -3) / ( A 653 

3MU ( 1-3 I *tT A ( I -3 ) *T ( I — 3 1 I )/ ( 6.*DX )+MU( I ) *ET4 ( I )*AVGMF< I )*l**2*VC< I 1 A 654 
4/(PM( I)*RHC( I )*RU*T{ II 1 A 655 

DO 76 N-2 t I A 656 

IF (NITC.GT.O) GO TO 75 A 657 

PAP1(N)=0. A 658 

PAP2(N)=0. A 659 

P AP 3 ( N 1 = 0 . A 660 

PAP4(NI=0. A 661 

75 PAB3(N)=CRNl*PAL3(N)+( l.-CRNI )*PAP3(N) A 662 

76 PAB4(N)=CRNI*PAL4(N)+< l.-CRNI )*PAP4<'J) A 663 

C CALL SUBROUTINE PCP TO SOLVE FOR P A 664 

CALL POP (CRNI, 0T*L*DX,DXi*HGD0T.M3D3TP.LPP* I » I M , R-IO, P , MU, T , TP, RUI A 665 

Z CALCULATE LOCAL PYROLYSIS GAS DENSITY A 666 



o o o 


DO 77 M=1 » I A 667 

RHO(N»=P(N)*A*GMF(N)/(RU*T<NJl A 668 

77 CONTINUE A 669 

DR0DX(l)=(-ll.*RHn<l)+18.*RH0(2)-9.*RH0(3)+2.*RH0(4) )/ (6.*DXU A 6 70 

DOX= DX1 A 671 

DO 79 N=2,IM A 672 

IF (N.E0.20) GO TO 78 A 673 

DRODX(N)= (RH0(N*1 l-RHO(N-l) )/(2.*DDX) A 674 

GO TO 79 A 675 

78 DDX=DX A 676 

DRODX(N) = ( 0X1 **2* RHD ( N+i ) ■*■( DX**2-0X1 ** 2 ) *RHC ( N I -OX**2*RHO ( N- 1 ) 1/(0 A 677 

1 X 1 * DX *( DX 1 ♦ DX ) ) A 678 

79 CONTINUE A 679 

DRODX ( I != ( ll.*RHO( I)-13.*RH0( IMM-9.*RH0( I -2 ) -2 . *RHO ( I - 3 ) )/(6.*DX) A 680 

CHECK PYROLYSIS RATE- IF LESS THAN MIN NEGLECT THERMAL NON- A 681 

EQUILI3RIJN OF PYROLYSIS GASES AN3 CHAR LAYER AND CHEMICAL A 682 

REACTIONS A 683 

IF (NITP.GT.O) GO TO 81 A 684 

DO 80 N=l, I A 685 

ETA(N)=ETA( I) A 686 

AT(N)=T(N) A 687 

T(N)=TS(N) A 688 

A MD 0 T ( N ) = MG DO T A 689 

V ( N ) =— MGDOT f (RHO(N)*ETA(N) ) A 690 

DO 80 K=1,KT A 691 

RH0K(N,K) = '1FK(N,K ) *RHO< N J *M ( K I /A VGMF ( N i A 692 

80 CONTINUE A 693 

GO TO 101 A 694 

81 CONTINUE A 695 

C CALCULATE LOCAL MASS FLOW RATE OF PYROLYSIS GASES A 696 

AINTK IM) = DX/2.*(ETA( I )*RHO( I )♦£ TA( I N ) *RHO( I M ) ) A 697 

AINT3(IM»=DX/2.*( ETA(I)*( (RHO( D-PRH3I I ) )/DT-RM( I ) )«-RHO(I>*C ETA( I ) A 698 
l-ETAPI I ) »/DT«-=TA( IMJ *( ( RHCH I M J-PRHO ( I M ) J/DT-RMl I M J) «-RHO ( I M) * ( ET A ( I A 699 
2 M ) -ET AP ( I M) )7DT) A 700 

KGN= 1-2 A 701 
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DDX= DX A 702 

DO 83 N«JiI A 703 

IF (K0N.sQ.I9) GO TO 82 A 704 

A I NT 1 ( K 0 M ) = A I MT 1 ( KCN+2 )+DDX73.*( ETA(K0N*-2)*RH0( ON*- 2) *-4.*ETA( KON*-i A 705 

1) #RHO(KON*-1)*-ETA(KON)*RHO(KONH A 706 

AINT3(K3\i) = AI\|T3{K0N*-2>*-DDX/3.*(ETA( ON + 2)*( (RH3( K0N*-2 I -PRHO (<0N*-2 A 707 

I ) )/DT-RM(KON*-2n*-RHO(KON*-2)*(ETA(KON*-2)-ETAP( K3N*-2 ) ) /DT *-4. * ( = TA ( KO A 708 
2N+1)*( (RNO(KON + 1)-PRHO( KON+1 ) ) /DT-* M( KON*- 1 1 ) +RHO ( KON*- 1) * ( ET A ( ON *■ l A 709 
3 )-ETAP(K0N+i) I7DT )+ETA(KON)*( (RH0(<0M)-PRH3 (K3N ) ) OT-RM(KON) ) *-RHO( A 710 
4K3N)*(ETA(K0N)-ETAP< KONH/OT) A 711 

GO TO 83 A 712 

82 DDX=DX1 ' A 713 

AINTI(K0N)=AINT1( KON*- 1 H-DOX/2 .* ( ETA ( <ON*-i ) *RHO< KON*- 1) *-ET A ( KON ) *RHO A 714 

1 ( KON ) I A 715 

AINT3(K0N) = AINT3( K0N*-l)*-DDX/2.*( ETA ( KON+1 )*< ( RHO ( KON*- 1 ) -PRHO ( KON + 1 A 716 
1 ) I/DT-RM { KON) >+R HO (KON+1 )*(ETA( KON +1)-E TAP < K3N*-1J ) OT*E TA ( KON ) * ( ( R A 717 
2HO( KON ) -PR HOI KON i ) /DT-RM ( KUN ) ) *-RHO ( K ON ) * { ET A ( KON ) - E T AP < KON ) )/3T ) A 718 

83 KON=KON“ 1 A 719 

DO 84 N= 1 v IM A 720 

AMDOT( N ) = MGDQT+L* ( VC ( I ) *ET A ( I )*RHO< I) - VC ( N) *ET A ( N )* RHO < N ) )-L*AINT3 A 721 

1 (N)-lMGDOTORHO-MSCOTfRHOSO>*AINTl(N) A 722 

84 KON=KUN— 1 A 723 

DO 85 N= 1 * I A 724 

V(N)=-AMDOT<N)/(RHC(N)*ETA(N) ) A 725 

85 CONTINUE A 726 

DO 86 N-l » I A 727 

86 DVDX(N)=L<‘((V:(N)-V(N)/L)*(DRODX(N)/RHO(N) + DETADX(N)/ETA(Nn-( (RHO A 728 

1 <N)-PRHO(N))MDT*RHO(N)) + (ETA(\l)-ETA:>(N))nDT*ETUN))+RM(N) MHO(N) A 7 29 

2) ) A 730 

DO 91 K=i » KT A 731 

NRHOK ( K) =0 • A 732 

DO 87 N=1,I A 733 

IF ( <MFK(N*K).GT.l.E-5) . OR. ( R(N, K ) .GT . i.E-5 ) ) NRHQK(K)=1 A 734 

37 CONTINUE A 735 

IF (NRHOK(K) .EQ.O ) GO TO 91 A 736 


199 



ARH( II=M(K)*MFKI (K)*MGDOT/(AVGMF( I)*ETA( II) A 737 

C CALCULATE COEFFICIENTS IN SPECIES COMTINUITY EQ A 733 

DO 89 N= I » I A 739 

8RH(NJ=PAMGDOT(N t K) A 740 

DEN=ETA(N)*{VC(N)-V(N)/L) A 741 

DELL (Nf K> = CETADX (M/ETA (N)-(ET AIN )*VC ( N )/V( N ) *3 VO X ( N )♦ ( E T A ( Nl - ET AP A 742 

I ( Ni I /DT l/DEN A 743 

DEL2 (N»K)=V (N)*ETA (N )* ( (RHOK(N, X ) -R HO < P ( N , X) ) 70T- R ( N » X ) *M ( K ) ) fDt N A 744 

DEL3(N)=0. A 745 

IF (NITA.GT.O) GO TO 88 A 746 

DEPI(N f Ki=DELl(N,K) A 747 

DEP2(N*K)=0EL2(N*K) A 748 

0EP3(N)=DEL3(N) A 749 

88 DEB2(N,K)=CRNI*CEL2(N,K)+(1.-CRNI)*D=P2(N,K) A 750 

DEB3(N)=CRNI*DEL3(N)+(1.-CRNI )*DcP3(V) A 751 

AL1(N)=DEL1(N,K) A 752 

API (N)=DEP1(N, X) A 753 

AB2(N)=DEB2(N*K) A 754 

89 CONTINUE A 755 

C A 756 

C COMPUTE GAS DENSITY THROUGH CHAR LAYER A 757 

C A 753 

C CALL SUBROUTINE P0E2 TO SOLVE FOR THE LOCAL MASS FLOW OF A 759 

C SPECIES A 760 

CALL PDE2 (ALi,AB2tAB3,APl,BP.H,ARH,CRNItOXtDXl,DT,I ) A 761 

DO 90 N= I « I A 762 

IF ( ARH(N) .LT. 1.E-100I ARH ( N ) = 1 . E- 1 00 A 763 

RHOK(N»K)=«875*RHCKP(N»K)-«125*ARH(N)/V(N) A 764 

90 CONTINUE A 765 

91 CONTINUE A 766 

DO 92 N= 1 » I A 767 

R0M(N)=0. A 768 

DO 92 K=1 »KT A 769 

92 R0M(N|=R0M(N)+RH0K(NtK)7M(K ) A 770 

DO 93 N=1 » I M A 771 
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DO 93 K= 1 1 K T A 772 

93 MFK(N,K)=RHOK(N,K)/(ROM(N>*M(K)l A 773 

C CALCULATE COEFFICIENTS IN PYROLYSIS 3 AS TEMPERAT JRE DIFFERENTIAL A 774 

C EQUATION A 775 

DO 95 N=L » I A 776 

AT(N)=T( N) A 777 

DEN=ETA(\|)*(V(N)7L-VC(N) > *( ROCPM ( N ) - HO (N 1 *RU 7 A V3MF ( N I ) A 778 

BETA1(N)=(HA(N)*TP(N)/T(NJ -ET A (N ) *RU* ( ( ROM ( N )-PR3 M( N ) ) / DT + ( V ( M ) / L- A 7 79 
IVC(N) ) * ( DRO DX ( N ) / A VGMFl N I-RHO (N)*DMBOX(N)/AVGMF(N)**2))-RHQ(N)*RU A 780 
2*((ETA(N)-ETAP(N) ) 7CT-VC ( N) *DET ADX ( N ) )7AVGMF(N))/DEN A 781 

BETA2(N) = ( ETA(N)*(HRSUM(N)-V(N)**2/2.*RM{N)+RS(N)*HST(N)«-RHS(N)*HS A 76 2 
1 (N)-HRJSUM(N))-HA CM *T SPIN) ) 7DEN A 783 

BETA3(N)=ETA(N)*< ROC PM (N l-RHO (N) *RJ/ A VGMFI N )) /DEN A 784 

IF (NITA.GT.O) GO TO 94 A 785 

BETP1(N)=BETA1 (N) A 786 

BETP2IN )=BETA2(N) A 787 

BcTP3(N)=BETA3(Ni A 788 

94 CONTINUE A 789 

BETB2(N)=CRNI*BETA2I N)+( l.-CRNI l*BcT?2(N) A 790 

BETB3(N) = CRNI*8ETA3(N)M1.-CRNI)*BETP3<N) A 791 

95 CONTINUE A 792 

TU)=TSU) A 793 

C CALL SUBROUTINE PDE2 TO SOLVE FOR T A 794 

CALL PDE2 (BETA1»BETB2,BETB3,BETP1,T : »,T,CRNI,3X,0X1,DT,I) A 795 

DO 96 N=1 » I A 796 

C CALCULATE COEFFICIENTS IN POROSITY DIFFERENTIAL EQUATION A 798 

96 T(N)=.875*TP(N)+.125*T(N) A 797 

DU 98 N=l, I A 799 

EPSA1 (N)=-MS* <RHS (N) *RS(N) ) M RHOST*VC ( N ) ) A 800 

EPSA2(N)=0. A 801 

EPSA3<N)=-1./VC(N) A 802 

IF (NITA.NE.O) GC TO 97 A 803 

EPSP1(N)=EPSA1 (N) A 804 

EPSP3(N)=EPSA3 (N) A 805 

97 CONTINUE A 806 
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EPSB3(N)=CRNI *EPSA3(N)*( l.-CRNl )*EPS?3(N) A 807 

98 CONTINUE A 808 

C CALL SUBROUTINE PDE2 TO SOLVE FOR ETA A 809 

CALL P0E2 (EPSA1,EPSB2,EPSB3,EPSPL,ETAP,ETA,CRNI,DX,DX1,0T,I) A 810 

DETA0X(I)=(-I1 .*ETA( 1 1 +1 8 .*ET A ( 2 ) -9 . * ET A < 3 ) +2 . *ET A< 4) )/<6.*DXl) A 811 

DDX=0X1 A 812 

DO 100 N=2 ♦ I M A 813 

IF (N.tQ.20) GO TO 99 A 814 

DETADX(N)=(ETA(N+1)-ETA(N-1) )/(2.*D0X) A 815 

GO TO 100 A 816 

99 DDX=DX A 817 

DETADX(20) = (DXl**2*FTA(2l)-(DXl*< t 2-DX**2)*ETA(20)-0X**2*ETA( 19) ) / ( A 818 

1DX1*DX*(L)X1+DX) ) A 819 

100 CONTINUE A 820 

DETAOXI I ) = ( ll.*ETA(I ) -1 8 .*6 TA ( I M H-9. *E TA ( 1-2 > -2. * ET A ( I - 3 ) )/(6.*0X) A 82 1 

N IT A= 1 A 822 

101 CONTINUE A 823 

N I TC = 1 A 824 

C CALCULATE NEW THICKNESS VALUES FOR CHARRED AND 'JMCHARRF.D LAVERS A 825 

DLP = (MGD0TP/D<H0*-4«*(GRNI*MGD0T+( l.-CRNI ) *MGDOT P ) / DRHO+MGOOT/ DRHO ) A 826 

l*DT/6. A 827 

DL = DLP-( HSOOTP/( 1 .-E TAP( 1 ) ) *4. * ( CRN I *MSt)OT/ ( 1 .-ET A ( 1 ) ) ♦< 1 .-C R N I )*M A 8 28 

1SD0TP/(1.-ETAP(1) ) )+MSDOT/( i.-ETAC D))*OT/( 6.*RH3ST) A 829 

LP=LPPP-DLP a 830 

IF (LP.LT.LPMIN) GO TO 110 A 831 

L=L P P+OL A 832 

C CHECK SOLUTIONS- IF NO CHECK ITERATE AGAIN A 833 

00 102 N=l, IZ A 834 

IF ( ABS< ( TS (N)-ATS(N) )/TS( N) ) .GT .DIFER ) GO TO 12 A 835 

IF (N.GT.I ) GO TO 102 A 836 

IF (ABS( (P(NI-AP(NI)ZP(N) ).GT .DIFER) GO TO 12 A 837 

IF (ABSU T(N)-AT( N))/T(N) ).GT. DIFER) GO TO 12 A 838 

102 CONTINUE A 839 

PART=2.*DIFER*TS< 1 ) A 840 

NITG=0 A 841 
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IF (AbS(TS(l)-TSP(l)).GT. PARTI NITS=1 A 842 

IF (ABS(TIME-PTIME-PRNTFRQ) .LE.DT/2. ) GO TO 133 A 843 

IF ( ( TIME-PTIME-PRNTFRQ) .GT.O.) GO TO 103 A 844 

GO TO 105 A 845 

103 CONTINUE A 846 

QR AT=Q/QC A 847 

C PRINT RESULTS A 848 

WRITE ( 2, 1 12 ) TIME,OT,NIT,TS( 1) ,T{ i» , J * AT , MSDOT , MG30T , AMDOT(i) ,L, L A 849 

IP A 850 

WRITE (2,116) A 851 

WRITE (2,120) (TS (N) ,N=1, IZ) A 852 

WRITE (2,113) A 853 

WRITE (2,120) I E T A C N ) »N= 1,1) A 854 

WRITE (2,117) A 855 

WRITE (2,120) ( T ( N ) , N= 1 » I ) A 856 

WRITF (2,119) A 357 

WRITc (2,120) (P(N),N=l,I) A 858 

WRITE (2,114) A 859 

DO 104 K=1,KT A 860 

WRITE (2,111) SPfCIES(K) A 861 

WRITE (2,173) (mpk(N»K)*N=1» I) A 862 

104 CONTINUE A 863 

WRITE (2,115) A 864 

WRITE (2,120) (AVGMF(N) ,N*l*I ) A 665 

WRITE (2,116) A 866 

WRITE (2,120) ( AMDCT(N) ,N=1 , I ) A 867 

PTIME=PTIME+10. A 868 

105 CONTINUE A 869 

C IF SOLUTIONS CHECK RETAIN CURRENT VALUES OF PARAMETERS A 370 

DO 108 N=l , IL A 871 

YTS(N) =(TS(N)-TSP(N) )/DT A 872 

IF (N.GT.I ) GO TO 107 A 873 

YETA(N)=(ETA(N)-ETAP(N) )7DT A 874 

YRHO(N) = (RHG(N ) -PRHO < N) ) /OT A 875 

YP(N)=( P(N)-PP(N) )7DT A 876 
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P API ( N ) =P AL 1 (N) 

PAP2(N)=PAL2(N) 

PAP3(N)=PAL3(N) 

PAP4(N)=PAL4(N) 

PROMINI =ROM ( N ) 

PRHQ(N) =RHO(N) 

AVGMFPl Nl =AVGMF( N) 

PP ( N I = P ( N I 
EPSP1 INI =EPSA1 (N) 

EPSP3(N)=EPSA3(N) 

BtTPl(N)=BfcTAl (M 
BETP2(N)=BETA2(N) 

B6TP3(N)=8ETA3(N) 

YT(N) = < T(N)-TP(M ) /DT 
DEP3(N)=DrL3CN I 
DO 106 K=1 » KT 
DLP1(N,K)=DF:L1(N,K> 
D6P2(N,KI=DEL2(N,K) 

YPHOK(N»K) = (P.HQMN»K) —RHUKP ( N » K I )/0T 
PAMGDOT (N,0 = -RH3K(N,K )*V(N) 

106 RHOKP(NfK) = PHOM N » K) 

HA(N)=ABS< PPOPC*RGCPM( N) *V< N) /P3(NI) I 
TP(N)=T(N) 

E TAP ( Ni = - T A ( N I 

107 CONTINUE 
ALPHP1{NI=ALPHA1(M 
ALPHP2(N)=AL°HA2(M 
A LPHP3 ( N) =ALPHA3 (N) 
ALPHP4(N)=ALPHA4(M 

10a TSP(N)=TS(NI 
MSDOTP=MSDOT 
ALPHIP1=AL*HI1 
ALPHIP2=AL°HI2 
ALPHIP3=AL°HI 3 
ALPHIP4=AI_PHI4 


A 877 
A 878 
A 879 
A 880 
A 881 
A 882 
A 883 
A 884 
A 885 
A 886 
A 887 
A 888 
A 889 
A 890 
A 891 
A 892 
A 893 

A 894 o 
A 895 
A 896 
A 897 
A 898 
A 899 
A 900 
A 901 
A 902 
A 903 
A 904 
A 905 
A 906 
A 907 
A 908 
A 909 
A 910 
A 911 



GAMMIP1=GAMMI 1 

GAMMIP2=GAMMI2 

GAMMIP3=GAMMI3 

GAMMI P4=GAMMI 4 

GAMIPPi=GAMIPl 

GAMIPP2=GAMIP2 

GAMIPP3=GAMIP3 

GAMlPP4=GAPIP4 

KAPI PP 1 = KAP I PI 

KAP I PP2=K AP I P2 

KAPIPP3=KAPIP3 

KAPIPP4=KAPIP4 

QPNET=ONET 

PHBRKN2=H6RKN2 

PHBRK02 -H3P K02 

QPT=Q 

KSP 1=KS ( l ) 

K$PI=KS( I ) 

KPP I =KP l I ) 

KPP I P= KP ( IP) 

LPP = L 

LPPP-LP 

MGDOTP=MGOOT 

C CHECK ITERATION COUNT- INCREASE TIM 

IF (NIT.GT.l) GO TO 109 
IF (NTIME.LT. 5) GG TO 109 
DT = 1.5*DT 

IF (DT.GT.10) DT= 1 0. 

NT I Mc=0 

109 NIT=0 

NT IM6=NTI ME + 1 
GO TO 9 

110 CONTINUE 

WRITE (2,121) LP 
STUP 


A 912 
A 913 
A 914 
A 915 
A 916 
A 917 
A 918 
A 919 
A 920 
A 921 
A 922 
A 923 
A 924 
A 925 
A 926 
A 927 
A 928 
A 929 
A 930 
A 931 
A 932 
A 933 
A 934 

STEP IF I T?. RATI 0N= 1 A 935 

A 936 
A 937 
A 938 
A 939 
A 940 
A 941 
A 942 
A 943 
A 944 
A 945 
A 946 
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C A 947 

C A 948 

C A 949 

111 FORMAT ( 50X » A 1 0 ) A 950 

112 FORMAT U12X.7HTIME = , F9.4, 18X» 5H9T = , F 7 . 4 , 24X , 23HNUM8ER 0= IT£R A 951 

1ATI0NS = ♦ I 2/ 12X t 8HT S( 1 ) = , F9. 2 » l 7X, 7HT ( 1 1 = , F9 . 2 , 2 DX , 7HQR AT = , A 952 

2F7.4/12X, 8HMS00T = , E 1 5 . 6 , 1 1 X , 3HMG00T = , E 1 5. 8 » 1 3X, 1 1H AMDOT ( l ) = , A 953 

3E15. 8/12X.16H-HAR THICKNESS = *E l 5 . 3 t 2 X , 1 JHUNCHAR THICKNESS =,E16.8 A 954 

4) A 955 

113 FORMAT ( 2X » 1 >HCHAR LAYER POROSITY) A 956 

114 FORMAT ( 2X » 29H MGL E FRACTION GASEOUS SPECIES) A 957 

115 FORMAT ( 2 X » 40HAVE RAGE MOLECULAR WEIGHT PYROLYSIS GASES) A 958 

116 FORMAT (2X * 39HL3C AL MASS FLOW RATE OF PYROLYSIS GASES) A 959 

117 FORMAT (//2X, 1 7HFLUID TEMPERhTURE) A 960 

118 FORMAT ( //2X, 1 7HSCLI0 TEMPERATURE) A 961 

119 FORMAT ( 2 X » tt'HPRE S SURE ) A 962 

12U FORMAT ( 2X , 5*25 . 1 5 ) A 963 

121 FORMAT (20X»36HMINI MUM THICKNESS VIRGIN MATERIAL = ,E20.10) A 964 

END A 905- 
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1 


2 


3 
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SUBROUTINE VISC 

CALCULATION OF FLUID VISCOSITY AND PRANDTL NUMBER AT LOCAL TEMP- 
ERATURE (RtF. BROKAW- NASA TR R-d 1 1 
DIMENSION MUK(12), KGK( 12) 

COMMON ✓ DEID E2f PS I ( 12, 12 ) , PH I ( 1 2 , 1 2 ) , DUMMY ( 1 032 ) 

COMMON ACEFU2) , ACER ( 12 ) , BCEF ( 12 ) , BC=R ( 12 ),CKNI , KUPT ( 40 , 12 ) , KUPT V ( 
1 40 ) » M( 13) ,MFK( 50,12) ,MNC,NNO,MU( 50) , MUKT ( 40 , 1 2 ) , MUKTV ( 40) ,PR( 50) ,R 
2(50,12) ,RH0(50) ,RHOK (50,12 ) ,RHOKP( 50,12 ),T( 50), TEMP (43), NRCT,KT,RU 
3,NSTEP,R0CFM(50) ,RS( 50) 

REAL MU , MUK » M» KUPT , MUKT V , MUKT , KUPT V, <G,KGK 

N=NSTEP 

DO 2 K=1,KT 

IF (MFK(N,K) .LT. 1 .E-5) GC TO 2 
DO 1 J= 1 * MNO 
MUKTV( J) = MUKT( J,K ) 

KUPTV( J) = KUPT( J,K ) 

CONTINUE 

CALL FTLUP ( T ( N ), MUK ( K ), MNO , NNO , TEMP , MUKT V) 

CALL FTLUP ( T ( N ) , KGK ( K ) , MNO , NNO , TE MP , KUP T V ) 

IF ( T(N).GE.300.) GO TO 2 
MUK ( K ) =MUKT V( 1 ) 

KGK( K)=KUPTV( l ) 

CONTINUE 

DO 4 K= 1 » KT 

DO 4 J=1,KT 

IF (K.EQ.J) GO TO 4 

IF (MFK(N,K).LT.l.E-5) GO TO 3 

PHI(K, J)=( 1 .+SQRT(MUK( K)/MUK( J) )*SQRT { SQR T(M(J)/M(K)) ) ) **2/ ( 2 .*SQR 
LT (2. )*SQRT ( 1 ,+M(K ) /M ( J ) ) ) 

PSI (K»J)=PHI(K,J) *(1 •+2*41*(M(K)-M(J) ) * ( M( K )-• 142 *M ( J ) ) / ( M( K ) +M( J ) 
1 )**2) 

GO TO 4 
CONTINUE 
PHI (K, J)=0. 

PSI(K,J)=0. 

CONTINUE 


8 1 
B 2 
B 3 
8 4 
B 5 
B 6 
B 7 
B 8 
B 9 
B 10 
B 11 
B 12 
B 13 
8 14 
B 15 
B 16 
R 17 
B 18 
B 19 
3 20 
B 21 
B 22 
B 23 
B 24 
B 25 
fl 26 
B 27 
B 28 
B 29 
B 30 
B 31 
B 32 
B 33 
8 34 
3 35 
B 36 


207 



5 


6 


7 


MU ( N ) = 0 . 

IF (MFK(N,1).lT.I.E-3) GO TO 5 

A=1.+PHI ( 1, 2)*RH0K (N ,2) *M ( 1 ) / ( RHOK ( N, 1 ) *M ( 2 ) ) +PH I ( 1 » 3 ) *RHQK ( N » 3 ) *M 
1(1) 7 (RHOK ( N, 1 ) #M ( 3 ) ) + PH I (1,4) *RHOK ( N , 4 ) *M< 1 ) /( RHOK( M» 1 ) *M( 4) ) +PH1 ( 
21,5) *RHQK (N»5)*M( 1 ) / ( RHOK ( N » 1 ) *M ( 5 ) ) + PH I ( 1 , 6 ) *RH3K ( N, 6 ) *M ( 1 ) / ( RHOK 
3 ( N» 1 )*M(6) ) 

MU ( N ) =MUK ( 1 ) / C PH I ( l,7)*RHOK(N,7 ) *M( 1 ) / ( RHOK ( N, 1 )*M{ 7) ) +PHI ( 1, 8 )*RH 
1 OK ( N » 8 ) ( 1 ) / ( RHUK ( N » 1 ) *M( d) ) +PH* ( 1 , 9 ) *RHGK ( N , 9 ) * M < 1 ) / { RHOK ( M , l ) * M 
2 (9) J+PHI ( l , 10)*RHQK( N» 1 0 ) *M ( l ) 7 ( RHOK ( N , 1 )*M( 10) ) + PHI( 1 , 1 1 ) *RH3K ( N , 
31 1 ) *M( 1) /< RHQK(N, 1 )*M< 11) )+PH 1(1,12) *RHOK( N , 1 2 ) *M ( 1 ) / ( RHOK ( N» 1 )*M( 
4 1 2 ) ) +A ) 

CONTINUE 

IF (MFK(N»2).LT.l.E-5) GO TO 6 

A = 1 • +PH 1(2,1)* RHOK (N«l)*M(2)/( RHOK ( N* 2 l *M ( 1 ) HPHI ( 2 , 3 ) *R HOK ( M , 3 ) *M 
1 (2)/(RH0K (N,2)*M( 3) ) +PHI ( 2, 4) *RHOK ( N , 4 ) *M ( 2 ) / ( RHOK ( N, 2 ) *M ( 4 ) ) + PH I ( 
22 ,5)*RHOK(N,5)*M( 2 )7 ( RHOK ( N, 2 ) *M ( 5 ) ) + PHI ( 2, 6 ) *RHOK( N, 6 )*M( 2) /( RHOK 
3 ( N , 2 ) *M ( 6 ) ) 

MU(N)=MUK (2 ) 7 ( PHI ( 2, 7 ) *RHOK ( N , 7 ) *M ( 2 ) 7 ( RHOK ( N » 2 ) *M( 7) ) +PHI ( 2 » 8) *RH 
lOK(N»8)*M(2)/( RHOK (N»2)*M(8) )+PHI ( 2 , 9 ) * RHOK ( N , 9 ) *M ( 2 ) / ( RHOK < N,2)*M 
2(9) )+PHI ( 2 t 10) *RHGK(N, 10 ) *M( 2 )/ ( RHOK( N , 2 ) *M ( 10) ) + PH I ( 2 , 1 1 ) *RHOK( N , 
31 i)*M(2) /( RHOK IN, 2 ) * M { 1 1 ) ) + PHI (2 , 12 )*RHOK(N, 12 )*M (2)/ ( RHOK ( N , 2 ) *M ( 
412) )+A)+MU(N) 

CONTINUE 

IF ( MFK ( N , 3 ) • L T. 1 «E- 5) GO TO 7 

A= 1 • +PH i (3. 1 HRHOMN, 1 ) *M ( 3 ) 7 ( R HOK ( N , 3)*M( 1 ) ) +PHI ( 3 , 2 ) *RHOK ( N , 2 ) * M 
1 ( 3 ) t ( RHOK ( N , 3 ) *M ( 2 ) ) + PH I ( 3 , 4 ) * RHOK ( N , 4 ) *M ( 3 ) 7 ( RHOK ( N , 3 ) *M ( 4 ) ) +PH I ( 
23, 5 ) *RHO< ( N, 5 ) *M( 3 ) / ( RHOK ( N , 3 ) *M ( 5) ) +PHI ( 3,6 )*RHOK( N,6 ) *M(3) / (RHOK 
3(h,3)*M<6) ) 

MU(N) = MUK ( 3)/( PHI ( 3, 7 ) *RHOK ( N » 7 ) *M ( 3 ) / ( RHOK ( N , 3 ) ♦ M< 7 ) ) +PHI (3»9)*RH 
1 OK ( N,8)*M(3)M RHOK (N, 3) *M(8 ) J+PHI ( 3, 9 ) *RHOK ( N ,9 )*M( 3) 7 ( RHOK( N, 3)*M 
2(9)) +PHI ( 3,10)*RHGK( N , 10 ) *M ( 3 ) / < RHOK ( N , 3 ) *M ( 1 0 ) ) +PH I ( 3 , 1 1 ) *RHOK ( N , 
3 11 ) *M ( 3 ) / (RHOK IN, 3)*M( 11 ) J+PHI (3, 12 )*RHGK( N , 12) *M ( 3) 7 ( RHOK ( N , 3 ) * M ( 
412) )+A)+MU(N) 

CONTINUE 

IF (MFK(N,4) .LT.l .E-5) GO TO 8 
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A=l. +PH 1 ( 4, 1 )* RHC K <N, 1)*M <4 )/(RHOK(N, 4 )*M( 1) )+PHI ( 4 , 2 ) *RHOK ( ^ , 2 ) *M B 7 2 
1 (4)/(RH0K(N,4)*M( 2))+PHI( 4, 3)*RH0K( N, 3 ) *M (4) / ( RHOK< N, 4 ) *M ( 3 ) ) + PH I ( B 73 
24,5)*RH0K(N,5)*M(4)7 ( RHOK ( N , 4 ) *M ( 5 ) ) ♦PH I { 4, 6 ) *RHOK< N , 6 ) *M < 4 ) /(RHOK B 74 
3 ( N , 4 ) *M ( 6 ) ) B 75 

MU(N) = MUK (4) / ( PHI (4, 7 ) *RHOK ( N , 7 ) *M < 4 ) 7 ( RHOK ( N , 4) *M( 7) ) tPHI(4,8l*RH B 76 
10K<N,8)*M(4)/(RH0K(N,4)*M(8))+PHI(4,9)*RH0MN,9)*M(4)/<RH0K<M,4)*M B 77 
2(9) )+PHI( 4,iO)*RHOK(N, 10 ) *M ( 4 ) / ( RH3K< N , 4) *M ( 1 0 ) ) ♦ PH I ( 4 , 1 1 ) *R H OK ( N ♦ 8 78 

3U)*M(4)7 (RHOK (N, 4 )*M(ll))+PH 1(4, 12 I *RHOK(N, 12)*B (4 ) 7 ( RHOK { N , 4) *M ( B 79 
412 ) ) +A ) +MU( N ) B 80 

8 CONTINUE B 81 

IF (MFK(N,5).LT.l.E-5) GO TO 9 B 82 

A= 1 • ♦PHI ( 5 1 1 ) *RHQK (N»i)*M(5)/( RHOK ( N , 5 ) 1 ) UPHI ( 5 , 2 ) *RHOK ( N , 2 ) * M B 83 

1 ( 5 ) 7 ( RHOK ( N , 5 ) *M ( 2 ) ) ♦PH 1(5,3) *RHOK (N,3)*M(5)7( RHOK ( N, 5 ) *M ( 3 )) +PH I ( B 84 
25 , <♦ ) *RHOK ( N , 4 ) ( 5 ) / ( RHOK ( N , 5 ) *M ( 4 ) ) ♦ PH I ( 5 , fc ) *RHOK ( N, 6 ) ( 5 ) 7 ( RHOK B 8 5 

3(N,5)*M<6)) B 86 

MU(N)=MUK(5)/(PHI (5, 7) *RHOK ( N , 7 ) *M ( 5 ) / ( RHOK ( N , 5 ) * M ( 7 ) ) ♦PHI ( 5 , 8 ) *R H B 87 
1 OK (N,8)*M(5)7( RHOK (N»5)*M(8)i+PHI(5,9) #RHOK ( N » 9 )* M ( 5) 7 ( RHOK ( N » 5 ) + M B 8 8 
2(9) ) +PHI ( 5,10)*RHGK( N,10)*M(5)7( RHOK (N,5)*M(10) ) ♦ PH I ( 5 , 1 1 ) *RHOK < N, B 89 
311) *M (5)7 ( RHOK (N» 5 ) *M ( 11) ) +PH I ( 5, 12 )*KHCIK(N, 12 ) ( 5 ) 7 ( RHOK (N»5)*M( B 90 

412) )+A)+MU(N) B 91 

9 CONTINUE B 92 

IF (MFK(N,6).LT.1.E~5) GO TO 10 B 93 

A* 1 • +PH I ( 6 , 1 ) *RHOK ( N , 1 ) *M( 6 ) / ( RHOK ( N , 6 ) *M 1 1 ) ) ♦PHI ( 6 , 2 ) *RHOK ( N, 2 ) *M B 9 4 

1 (6)7(RH0K(N,6)*M(2))+PHI(6, 3)*RH0K(N, 3 ) ( 6 ) 7 ( ^ HOK( N» 6) *M( 3) ) ♦PHI ( B 95 
26,4)*RH0K(N»4> *H(6)7 ( RHOK ( N , 6 ) *M ( 4 ) ) ♦PHI (6,5) *RHQK ( N, 5 ) *M ( 6 ) 7 ( RHOK B 96 
3 ( N , 6 ) *M ( 5 ) ) B 97 

MU( N) =MUK<6 ) 7 ( PHI (6 , 7 ) *RHOK ( N, 7 ) *M{ 6 ) 7 ( RHOK ( N , 6 ) *M ( 7) ) +PHI ( 6, 8)*RH B 98 
10K(N,8)*M(6)/(RH0K(N,6)*M<8) ) +PH I ( 6 , 9) *RHOK ( N , 9 ) *M ( 6) 7 ( RHOK ( N ,6 ) *M B 99 
2(9) )+PHI(6,10)*R HOK( N, 10 ) *M ( 6 ) 7 ( RHOK ( N , 6 ) *M ( 1 0) ) +PH I ( 6 , 1 1 ) *R HOK ( N , B 100 
311)*K(6)/(RH0K(N,6)*M(ll) ) ♦PHI (6, 12 ) 0 RHOK ( N , 12 ) *M (6 ) 7 ( RHOK( N, 6 ) *M ( B 101 
4 12 ) ) +A ) ♦MU ( N ) B 102 

10 CONTINUE 8 103 

IF (MFK(NI,7).LT.l.E-5) GO TO 11 B 104 

A=1 , + PHI (7 , 1 )*RHOK(N,i )*M<7 )7 ( R HOK ( N , 7 ) *M ( 1 ) ) +PHI ( 7 , 2 ) *RH9K ( \| , 2 ) 3 105 
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i ( 7) / (RHOK (N,7) *M(2 ) ) + PHI ( 7,3) ♦RHOM N, 3)*M(7 )/ ( RHOK ( N» 7 )*M ( 3) ) ♦PHI ( 8 106 

2 7,4) ♦RHOK (N, 4) *M( 7 ) / ( RHOK ( N , 7 ) *M ( 4 ) ) ♦ PHI ( 7, 5) ♦ RHOM N,5)*M(7)/ ( RHOK 8 107 
3(N,7)*M(5))+PHI(7»6)*RHOK(N»6)*M(7)/(R HOK (N»7)*M(6)J R 108 

MU( N ) = MUK ( 7 ) / ( PHI ( 7, 8) ♦RHOK ( N , 8 ) ♦MI 7 ) / ( RHOK ( N , 7 ) ♦ M< 8 ) ) + PHI (7, 9)*RH 8 109 

10K(N,9)*M(7 )/(RHOK (N, 7 1 *M ( 9 ) ) ♦PHI ( 7 f 1 0 ) *RHOK ( N , 10 ) *M ( 7) /( RHOK( N» 7 ) B 110 
2*M( 10) ) +PHI (7»ll)*RHQK(N»ll)*M(7)/( RHOK ( N» 7 ) *M ( 1 1 ) ) +PH I ( 7* 12) *RHOK B 111 
3(N,12)*M(7)/(RH0K(N,7l*>m2n«-A)+MJ(Ml B 112 

11 CONTINUE 3 113 

IF (MFK(N,8).LT.l.E-5) GO TO 12 8 114 

A = l • ♦PH I ( 8 » 1 I ♦RHOK (N, 1)*M(8 if ( RHOK (N, 8 )«M( 1 ) J+PHI I 8 , 2 ) *RHOK ( N » 2 ) *M 8 115 

1 ( 8 ) / ( RHOK ( N » 8 ) *M ( 2 ) ) +PHI ( 8 , 3 1 ♦ RHOK ( N, 3 ) ♦ M ( 8 ) / ( RHOK ( N, 8 ) ♦ M ( 3 ) ) +PH II 8 116 

28.4) «RH0K(N,4)«M(6)/(RH0K(N,8)*M(4) ) ♦PHI ( 8» 5 1 ♦ RHOK ( N , 5 ) ( 8 J /( RHOK B 117 

3<N t 8)*M(5) J+PHI ( 8 ,6) ♦ RHOM N , 5 ) ( 8 ) / ( RH0K(N,8 ) *M ( 6) ) B 118 

MU ( N ) = MUK ( 8 ) / ( PHI ( 8, 7 ) ♦RHOK ( N , 7 ) ♦ M ( 8 ) / ( RHOK ( N , 8 ) *M( 7) ) ♦PHI (8,9) ♦RH B 119 
10K(N»9)*M(8) 7 ( RHOK (N,8J *M(9 ) )+PHI ( 3 , 1 0 J ♦RHOK ( N , 10 ) *M( 8 1 / ( RHOK C N , 8 ) 8 120 

2*M( 101 ) +PH I (8,11 »*RHOK( N,ll )*M(8)/( RH0K(N,8 )*M( 11 ) ) ♦PHI ( 8, 12) ♦RHOK 8 121 
3(N»12)*M(8)/(RH0<(N«d)*M( L2))*A)+HJH) B 122 

12 CONTINUE 8 123 

IF (MFK(N,9 ) .LT. I . E- 5 1 GO TO 13 B 124 

A = i» + PHI(9,l)*RHJK(NflI*M(9)/( RHOK (N, 9 I ♦M(l ) ) +PHI ( 9, 2 ) ♦ RHOK ( H , 2 )*M B 125 

1 < 9)/(RH0K (N,9) *M( 2 ) ) +PHI ( 9, 31 ♦RHOM N ♦ 3 ) *M ( 9 ) / ( RHOK < N, 9 ) *M< 3 ) ) +PH I ( B 126 

29.4) *RH0K(N,4)*M(9)7 ( RHOK ( N , 9 ) ♦M ( 4 ) ) ♦PH I ( 9, 5 ) ♦RHOK ( N , 5 ) *M ( 9 ) / ( RHOK R 127 

3(N»9)*M(5) )+PHI ( 9,6) ♦ RHOM N , 6 ) ♦M (9 ) /(RH0K(N,9)*M(6) ) B 128 

MU< N) = MUK (9 )/ ( PHI (9, 7) ♦RHOK (N, 7 ) ♦M ( 9 ) / ( RHOK ( N , 9 1 * M { 7) ) +PHI ( 9,8)*RH 8 129 

10K( N,8)*M( 9) / < RHOMN ,9)*M(8 ) ) +PHI (9,10)*RHOK(N,10 ) *M ( 9 I / ( RHOK ( N , 9 I 8 130 

2 ♦MI 101 >+PHI (9, 11) *RH0K(N,lll*M(9)/( R HOK ( N ,9 ) *M< 1 1 ) > ♦PHI ( 9,12) ♦RHOK B 131 

3(N,12)*M(9)/(RHCK(N,9)*M(i2))*A) +MU ( N ) B 132 

13 CONTINUE B 133 

IF (MFK(N,10I .LT.l .E-5 ) GO TO 14 8 134 

A = 1.+PHI( 10»l)*RHGMN,i)*M( 10 ) / ( RHOK ( N , 1 J )*M ( 1 ) ) ♦ PH I (1 0 , 2 ) ♦ RHOK ( N, 8 135 

12 )*M{ 10 )/ (RHOK (N, 10 ) ♦Mt 2 ) J +PH I ( 10, 3) ♦ RHQMN » 3) *M( 10)/(RH0K(N,10)*M B 136 
2(3)) +PH I ( 10,4) ♦RHGK(N,4)*M( 10 ) / ( RHOK ( N, 10 ) ♦ M ( 4 ) ) ♦PH I ( 1 0 , 5 ) ♦RHOK ( N , B 137 

3 5 ) *M ( 10 ) / ( RHOK ( N , 10) ♦MI 5) ) + PHI ( 10,6) *RHOK ( N , 6 ) ♦M ( 1 0 ) / ( RHOK ( N , 10 ) ♦ M B 138 

4(6)) 8 139 

MU ( N ) =MUK ( 10) / (PHI ( 10, 7 ) ♦ RHOM N , 7 ) *M( 10 ) / ( RHOK I N , 10 ) *M ( 7 ) ) ♦PHI ( 10, B 140 
18 ) ♦ RHOK (M» 8 ) ♦M ( 10 » /( RHOK ( N» 10 )*M( 8) ) ♦PHI ( 10 , 9 ) ♦R HOK ( N , 9 ) ♦ M ( 10)/(RH 8 141 
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2CK(N,10)*M(9) ) +PHI <10, 11 )*RHOK(N, li)*M< l J ) / ( RHQK ( N » 10) *M( 1 1) ) +PHI ( R 142 

310. 12) *RH0K(N, 12)*M< 10) /( RHOK (N, 10) *M( 12 ) )+A ) +MU< N) B 143 

14 CONTINUE B 144 

IF (MFK(N, 11) .LT.l.E-5) GO TO 13 B 145 

A= 1 • +PH I ( 11, 1 >*RHGK( N, i)*M< 11 ) /< RH3KI N . 11 )*M( 1 ) M-PH I ( 1 1 , 2 ) ♦RHOK ( N, B 146 

12)*M(ll)/( PHOK ( N» ll)*M(2) )+PHI< 1 1 , 3 )*RHOK( N , 3)*M( 1 1 ) / ( RHOK ( N , 1 1 ) *M B 147 
2( 3) )+PHl ( 11 ,4) *RHOK< N,4)*M< 11 )/< RHOK( N , 1 1 ) * P < 4 ) ) •■ PH I ( 1 1 , 5 ) *PHOK ( N , B 148 
35)*M(11)M RHOK (N»11)*M(5) ) +PH I ( 1 1, 6 ) *RHOK (N ♦ 6) *M ( 1 1 ) /< RHOK* N, 1 1 ) *M B 149 
4(6)) B 150 

MU ( N ) =MUK ( 11)/ (PH 1(11, I ) *RHOK { N , 7 ) *M ( ll)/(RHOK(N, 1 1 ) * M < 7) ) +PH I ( 1 1 , 3 151 

1 8 ) *RHOK ( N * 3 ) *M ( LI ) /( RHOK ( N , 11)*M(8))+PHI( 11 ,9 )*PHOK (N , 9 ) *M( 11 )/(RH B 152 
20K ( N » 1 1 ) *M ( 9 ) ) +P H l ( 1 1 » 10 ) *RHQK ( N » 10) *M ( 1 1 ) / ( RHOK ( N » 1 1 ) *M( 10 ) ) 4-PHI ( B 153 

311.12) * RH OK <N,12)*M( ll)/( RHOK (N, 1 1 ) *M ( 12) ) + A ) *-MU( N ) B 154 

15 CONTINUE R 15,5 

IF (MFK(N, 12). LT.l.E-5) GO TO 16 B 156 

A=1.+PHI( 12 ,1 )*RHGK( N, 1)*M( 12 )/ < RHOK ( N,12)*M(1))«-PHI(12,2) *R HOK ( N , B 157 

1 2 ) *M ( 1 2 ) / ( RHOK ( N , 12) *M( 2) ) +PH I ( 1 2, 3 ) * R HOK ( N , 3 ) *M ( 12 ) / ( RHOK ( N , 12)*M B 158 
2(3)) +-PHI ( 12,4) *RHGK( N,4)*M( 12 ) / (RHOK( N, 12 )*M( 4 ) ) +PH I ( 12 , 5 ) *R HOK ( N , B 159 
35)*M( 12) /(RHOK(N, 12) *M( 5) J+PHI ( 1 2, 6 ) * RHOK ( N , 6 ) *M ( 12 ) / ( RHOK ( N , 12 )*M B 160 
4(6)) B 161 

MU( N)=MUK( 12) /( PH I ( 1 2 , 7 ) *RHOK ( N , 7 ) *M ( 1 2 ) / ( RHOK ( N , 12 )*M( 7) )+PHI (12, B 162 
18 ) *RHOK (N»8)*M(12)/< RHOK (N, 12)*M(8))«-PHI(12,9)*R-I0K(N,9)*M(12)MRH B 163 
2 OK (N, L2)*M(9) ) +PH I ( 12 , i 0 ) *KHOK( N , 10 > *M ( 12 ) / ( RHOK ( N , 12 ) *M( 10) ) 4-PHI ( B 164 
312, 11 ) *RhCK (N, 1 1 ) *P ( 12 ) / ( RHOK ( N , 12 ) *M ( 11) )+A)+MU(N) B 165 

16 CONTINUE B 166 

K G— 0 . 9 167 

IF (MFK(N, 1 ) .LT.l .E-5) GO TO 17 B 168 

A = ( 1.4-PSI ( 1 ,2)*P.HGK( N, 2 ) *M ( 1 ) / ( RHOK ( N , 1 ) *M ( 2 ) ) +P S I ( 1 , 3 ) *RHOK ( N, 3 ) * B 169 

1 M < 1 ) / ( RHOK ( N, 1 ) *M ( 3 ) ) *-PS I ( 1 , 4 ) *RHOK ( M , 4 ) *M ( 1 ) / ( RHOK ( N , 1 ) *M ( 4) ) +PS I B 170 

2( i, 5)*RH0K< N,5)*M { 1 ) / < RHOK( N, 1 ) *M( 5 ))+PSI (1,6)*RH0K (N,6)*M( 1) /(RHO B 171 
3K(N, 1 )*M( 6) ) ) B 172 

KG= KGK ( 1 )/ (PS I ( 1, 7 ) * RHOK ( N, 7 ) *M { 1 ) / ( R HOK (N,1)*M(7)) *PSI( l,8)*RH0K( B 173 
IN , 8 ) *M( 1) /( RH0K(N,1)*M(8) ) + PS I ( 1 ,9)*RH0K(N,9 )*M(1 )/ (RHQK(N» 1 ) *M ( 9 ) B 174 

2 )+PSI( 1, 10)*RH0K(N,10)*M( DM RHOK( N , 1 ) *M( 10) ) +PSI ( 1 , 1 1 )*RHOK( N, 11 ) B 175 
3*M ( 1 ) / ( RHOK ( N , 1 ) *M ( 1 1 ) ) *-PSI ( 1 , 12 )*RHOK ( N, 12 ) *M ( 1 ) / ( RHOK ( N , 1 ) *M ( 12 ) B 176 
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4)+A) B 177 

17 CONTINUE 8 178 

IF (MFK(N,2).LT.l .E-5) GO TO Id B 179 

A=( 1 .+PSI ( 2, 1) *RHCK( N, 1) *M( 2) /( RH0K(N ,2)*M( 1) ) +PS I ( 2 , 3 ) *RHOK { N, 3 ) * B 180 

1 M ( 2 ) 7 ( KHOK (N»2)*M(3) ) + PS I C 2 , 4 ) *RHOK ( M , 4 )*M < 2 ) 7 ( RHOK ( N . 2 ) *M ( 4 ) )+PSI B 181 

2(2»5)*RHDK(N»5)*M(2)/(R-I0K(N,2)*M(5))*-PSI(2»6)*RM0K(N»6)*M(2)/(RH0 B 182 
3K(N,2)*M(b) )) B 183 

KG=KGK( 2 ) /( PSI (2» 7 ) * RHOK. ( N , 7 ) *M (2 ) / ( RHOK (N, 2 ) *M(7 ) ) «-P S I ( 2 , 8 ) * RHOK ( B 184 
1N,8)*M(2)/(RH0K(N,2)*M(8) )*PSK2,9)*RH0K(N,9)*M(2) 7 ( RHOKl N»2) *M ( 9 ) B 185 
2)+PSI(2»10)* RHOK (N»lO)*M(2)7(RHOK(N,2)*M( 10 ) ) *PS I ( 2 , 1 1 ) *RHOK ( Nl » 1 1 ) B 186 
3*M(2)/(RH0K(N,2)*M( ii))+PSI (2,12)*RHJK(N, 12 )*M(2) /( RHOK ( N ,2 ) *M( 12 ) B 18 7 
4)+A)+KG B 188 

18 CONTINUE B 189 

IF (MFK(N«3).LT.l .E-5) GO TO 19 B 190 

A=( 1 . + PSI ( 3,1 )*RHGK(N,1 )*M(3)7( RHOK ( M, 3 )*M( 1 ) ) +PS I ( 3 , 2 ) *RHOK ( N , 2 ) * B 191 

1 M ( 3 1 / < RHOK (N»3)*M(2) ) + PS I ( 3 , 4 )*RH0K ( ^ , 4 ) *M ( 3 ) 7 ( PHOK ( N , 3) *M( 4) )+PSI 8 192 
2(3,5 ) *RHOK (N,5)*K(3)/( RHOK (N»3)*M(5 ) H-PS I ( 3 , 6 )*FHOK (N , 6 ) ( 3 ) / ( RHO B 193 
3K(N,3)*M(6) ) ) B 194 

KG= KGK (3)7 ( P$ I ( 3 , 7 ) *RHOK ( N, 7 ) *M ( 3 ) 7 ( RHOK ( N , 3 ) ( 7 J H-PSI ( 3,8) ♦'RHOK ( B 195 
1N,8)*M(3)/(RH0K(N,3)*M(8))+PSI(3,9)*RH0K(N,9)*M(3)/ ( RHOK ( N, 3 )*M ( 9 ) B 196 

2 ) +PSI ( 3, 10)*RH0K(N, 10)*M( 3) 7( RHOMN, 3 ) *M( 10) ) *PSI ( 3 , ll)*RHOK( N, 11 ) B 197 

3*M(3)/(RH0K(N,3)*M(ll))+PSI(3,12)*RH0K(N,121*M(3)/( RHOK (N, 3 ) ( 12 ) 8 198 

4 ) *A ) +KG 8 199 

19 CONTINUE 8 200 

IF (MFK(N,4i.LT.l .E-5) GO TO 20 B 201 

A=( 1 . + PSI (4,1 )*RHGK(N, l)*M( 4) 7 ( RHOK ( M , 4 ) *M( 1) ) +PS I( 4,2 )*RHOK( N,2)* B 202 

1 M ( 4 ) / ( RHOK ( N,4)*M(2))*PSI (4,3) *RHQK ( N , 3 ) *M ( 4 ) / ( RHOK ( N , 4 ) ( 3 ) ) +PS I B 203 
2 (4,5) *=RHOK ( N, 5 )*M ( 4) / ( RHOK( N , 4) ( 5 ) ) + P SI ( 4 , 6 ) *RH0K ( N , 6) ( 4) 7 ( RHO B 204 

3K(N,4)*M(6) )) B 205 

KG=KGK(<»)/(PSI (4, 7)*RH0MN,7)*M(4)/(RH0K(N,4)*M(7 ) ) *P S I ( 4 , 8 ) * RHOK ( B 206 
1N,8)*M(4) 7( RH0K(N,4)*M(8 ) ) +PS I ( 4, 9 ) *RHOK ( N , 9 )*M( 4)/(RH0K( N,4) *M(9) B 207 
2)+PSI(4,10)*RHOK(N,10)*M(4)/(RHOK(N,4)*M(10) )+PSI (4,11) *RHOK ( N, 1 1 ) B 208 
3*M(4)/(PH0K(N,4)*M(l 1) ) +PS I ( 4, 12 ) *RHOK ( N , 12)*M(4) 7( RHOK ( N , 4) * M( 1 2 ) B 209 
4 ) +A ) +KG B 210 

20 CONTINUE 8 211 
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IF (MFK(N,5).LT.l .E-5) GO TO 21 B 212 

A= ( 1 » + PS I ( 5 » 1 KRHGM N» 1 KM( 5 ) / ( RHOK ( N » 5 KM( 1 ) KPS I ( 5, 2 ) *RHOK ( N , 2 ) * B 213 
1M ( 5 I / ( RH'JK ( N» 5 KM( 2) KPS I ( 5, 3 ) *RHOK ( >4 , 3 ) *M ( 5 ) / ( RHOK l N , 5 ) * M( 3 )) + PS I B 2H 
2(5,4)*RHUK(N,4K H(5) M RHOK ( N , 5 ) *M ( 4 I ) +PS I ( 5 , 6 ) *RHO< ( N , 6) *M ( 5 ) / ( RHO B 215 
3K(N,5)*M<6) )) B 216 

KG=KGK ( 5 ) H PS i (5 » 7 )*RHQK ( N» 7 ) *M ( 5 ) 1 ( RHOK { N . 5 ) *M ( 7 I KPSI( 5, 8 K RHOK ( 8 217 

1N»BKM( 5) / ( RHOK (N»5KM(8) KPSI ( 5 , 9K RHOK < N, 9 KM ( 5 1 / ( RHOK ( N, 5 1 *M( 9 ) B 218 
2 KPS I <5, 10 ) *RH0K (N,10)*M(5)/( RHOK ( N » 5 KM( 1011 ♦PSI ( 5 , 1 1 1 * RHOK ( N, 1 1 1 B 219 
3*M( 51/ ( RHOK (Nl, 5 1 *M(l 11 KPS I ( 5 , 12 KRH3K ( N, 12 KM ( 5 1 / ( RHOK ( N , 5 1 *M ( 12 ) B 22 0 
41+AI+KG B 221 

21 CONTINUE B 222 

IF <MFK(N,6).LT.i.E-5) GO TO 22 B 223 

A= ( 1 . + PS I ( 6 , 1 KRHQK ( N» 1 KM ( 6 K ( RHOK ( v| , 6 ) *M( 1 ) KPSI ( 6, 2 ) *RH0K( N ,2 )* B 224 

1M( t>) /( RHOM N,6K'1(2) KPS I (o, 3 KRHQK (N, 3 KM (6 1 / (RHOK (N , 6 KM ( 3 ) KPS I 8 225 
2 ( 6, 4 KRH3K ( N» 4 K'1 ( 6 ) / ( RHOK ( N » 6 KM( 4 ) KPSI ( 6 » 5 ) *R!HOK ( N , 5KM ( 6) / (RHO B 226 
3K(N,6KM( 51) ) B 227 

KG=KGK ( 6 1 / ( P S I (6,7KRHGK(N,7KM(6)/(RHOK(N*6KM(7)KPSI ( 6, 8 K RHOM B 22 8 
IN »8 KM(6 ) M RHOK (N, 6 KM (8 ) KPS I ( 6, 9 KRHOK ( N, 9 KM ( 6 ) 7( RHOK < N , 6KM ( 9 ) B 22 9 
2 KPSI ( 6 » 1 0 KRHOK ( N » 1 OKM ( 6) / ( RHOK ( N » :> KM ( 10 ) KPSI (6,11 )*RH0K(N,11 ) B 230 
3* M ( 6 1 / ( RHOK (N , 6 1 *M (11) KP S I ( 6 , 12 ) *RH0K ( N, 12KM(6) f ( RHOK ( N , 6K M( 12 ) S 231 
41+AI+KG B 232 

22 CONTINUE B233 

IF (MFK(N»7).LT.i.E— 5) GO TO 23 3 234 

A— (PSI (7* 1) *RH0K ( N,1 1* M ( 7 1 / ( RHOK ( N , 7 KM ( 1 1 KPSI l 7 , 2 ) * RHOK ( N, 2 ) *M( 7 8 23 5 

1 K( RHOK (N ,7 KM (2 ) ) +P S I ( 7 , 3 KR HOK ( N, 3 ) *M ( 7 1 M R HOK ( N , 7 KM( 3 1 KPS I ( 7 , B 236 

24KRH0K(N»4KM(7)/(RH0K(N»7)*M(4)KPSI ( 7 ,5 KRHOM N, 5 KM( 7 )/ ( RHOK ( N B 237 
3,7KM(5) KPSI ( 7, 6 KRH0K< N,6KM( 7)/(RH0K(N,7 KM( 6) )) B 238 

KG=KGK(7)/( l.+PSI ( 7 , 8 KRHOK ( N , 8 1 *M ( 7 1 / ( RHOK ( N» 7 KM ( 8 ) KPSI ( 7,9 KRH B 239 

1 OK { N » 9 KM < 7 )/( RHOK (N ,7 KM ( 9) 1 +-PSI ( 7, 1 0) *RH0K ( N , 1 0 ) *M( 7 ) / ( RHOK ( N, 7 ) B 240 

2 ♦Ml 10) KPSI (7,11 KRHOK(N, II KM(7) M RHOK (N » 7 KM ( II ) KPSI( 7, 12KRH0K B 241 

3(N» 12 KM( 7) /( RHOK ( N, 7KM ( 12) KAKKG B 242 

23 CONTINUE B 243 

IF (MFK(N,8).LT.l.E-5) GO TO 24 B 244 

A=( PS I (8, 1 KRHOK (N,l KM(8)/UH0K( N, 8KM( 1 ) ) +PSI ( 3»2KRHCK(N,2KM( 8 B 245 

1 ) 1 ( RHOK ( N , 8 KM ( 2 ) KPSI (8,3) *R HOK ( N, 3 KM( 3 ) / ( RHOK ( N , 8)*M ( 3) ) +PSI ( 8, B 246 
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24)*RH0K(N, 4 )*M( 6) / ( RHOK ( N , 8 ) * M ( 4 ) ) +PS I ( 8, 5) *RHOK (N,5)*M(8)/< KHOK (N 8 24 7 

3.8) *Ml5))+PSI<8,6)*RH0K(N,6)*Ml81/lR-l0K(N»8)*M(6m B 248 

KG = KGK( 8 ) 7 ( 1 + PSI (8*7) *RHOK ( N» 7 ) *M ( 8 )/ ( RHOK ( N , 8 I *M ( 7 ) ) + PSI ( 8, 9 ) *RHO 8 249 

1K(N,9)*M(8)/IRHCKIN,8)*M19))+PSI ( 8 , 1 0 I *RHOK ( N, LO ) *M ( 8 ) / ( RHOK ( N , 8 ) * 0 250 

2M(10))+PSI18,11)*RH0KIN, 1 l ) *M ( 8 ) 7 ( RHOK l N , 8 ) *M ( 1 1 > ) +PS I ( 8 , 12 ) *RHOK ( B 25 1 
3N»12)*M(8) /IRH0KIN»8)*M112) ) + A) +KG B 252 

CONTINUE B 253 

IF (MFKl N,5) .LT.l .E-5) GO TO 25 B 254 

A=( PS I (9, 1 ) *RHOK ( K * 1 ) *M( 9) / ( R HOK ( N ♦ 9) *M ( 1 1 ) + P SI ( 9 ,2 I * RHOK ( N , 2 J *M ( 9 B 25 5 

1 ) 7<RH0KIN,9)*M(2) ) +PS I ( 9 , 3 ) *R HOK < N, 3 ) *M (9 ) / < RHOK ( N , 9 ) *M( 3 )) +P SI ( 9, B 256 
24)*RH0KlN,4)*M (9) / l RHOK l N , 9 J *Ml 4 ) J +P S I ( 9 , 5 ) *RHOK ( N, 5 ) * M < 9 ) / ( RHOK l N B 2 57 

3.9) *M15))+PSI19,6 l*RH0K(N,6)*M{9)7(RH0K(Nt9)*M(6)) ) B 258 

KG=KGK( 9) /< 1 + PSI (9,7)*RH0K(N, 7)*M<9 )/ < RHOK < N , 9 > *M < 7 ) ) +PS I ( 9, 8 ) *RHO B 259 

IK l N , 8 ) ( 9 ) / ( R HCK l N * 9) *M ( 8 ) )+PSI (9, 1 J ) *RHOK ( N , 1 0 J *M ( 9 ) / ( RHOK ( N , 9 ) * B 2 60 
2M( 10) M-PS I (9, 1 1 )*PH0KIN, 1 1 ) *M <9 ) / ( RHO K ( N , 9 ) *M( 1 1 ) )+PSI ( 9, 12)*RH0K< B 26 1 
3N,12)*M(91/(RH0K(N,9)*MI12))+A1+KG B 262 

CONTINUE 9 263 

IF <MFKlN,10).LT.l.E-5) GO TO 26 B 264 

A=(PSI110*1)*P HOK (N* i)*M( 10)/IRHOK(N, 10 ) *M( 1 )) +PS I ( 10 , 2 ) * RHOK ( N , 2 ) 3 265 

1*M( 10)/(RHOK(N,10)*M(2)) + PSI ( 10 , 3 I *RHOK < N, 3 ) *M ( 1 0 ) / (RHOK ( N , 10)*M< 3 B 266 
2 M+PSI ( 10*4) *RHOK ( N» 4)*M( 10)/(RHOK(N, 10)*M(4))+PSIl 10 , 5 ) #RHOK ( N, 5 ) B 26 7 
3*M( 10) /< RHCMN, l J ) *M ( 5 ) ) +PS IUO , 6 ) *RHOK ( N , 6 ) *M ( 1 0 ) / IP HOK IN, 10)*M( 6 B 268 
4)) ) B 269 

KG=KGK (10)7 (l.+PS l( 10*7) *RHOK IN* 7 ) *M( 1 0 ) 7 l RHOK l N » 10 ) * Ml 7 ) )+P S I l 10 , B 270 
18)*RH0K( \|,8)*Ml 1 0 ) / ( RHOK IN »10)*M(8) ) +P S I ( 1 0 , 9 ) *RHOK ( N , 9 ) *M( 10J/IRH B 271 
20K(N, 10)*M(9) ) +PSI < 10* 11)*RH0K(N, 11) *Ml 1 0 ) / ( RHOK ( N * 10 ) * K ( 1 1 ) ) + PS I ( B 272 
310* 12 ) *RHOK (N»12)*M110)/ ( RHOK (N* 10)* Ml 12) )+A)+KG B 273 

CONTINUE B 274 

IF (MF KIN, 11). LT • 1 .E—5 ) GO TO 27 B 275 

A=(PSI(11»1)*R HCK (N*l)*M(ll)/( RHOK (N»ll)*Mll) ) +PS I ( 1 1 , 2 ) ♦RHOK ( N, 2 ) B 276 
l*M(li)/( RHOK ( N , 1 1 )*M12) ) +PS 1 1 11* 3)*RH0K(N,3)*Ml 11) f ( RHOK ( N , 1 1 ) *M( 3 B 277 

2) )+PSI (11,4)*RH0K(N,4)*M(11)/IRH0K(N, 1 1 ) *M ( 4 ) ) +PS I ( 1 1 , 5 ) *RHOK ( N ♦ 5 ) B 278 

3* Ml ll)/( RHOKIN, 11 )*M15) ) +PS I ( 1 1 , 6 ) *RHOK( N ,6 ) *M( 1 1 ) / ( RHOK ( N , 1 1 ) *M( 6 B 279 
4) ) ) B 280 

KG=KGK l ll)/l l.+PSI ( 1 1, 7) *RH0K(N,7) *M( 11)/ (RHOK (N, l 1 ) *M ( 7 II +PS I ( 1 1 , B 281 



18)*RH0K(N,8)*M( ll)/( RHOMN, 11 ) *M ( 8 ) ) «-P SI C 1 1 , 9 ) *RHOK ( N , 9 ) *M( 1 1 ) / < RH B 28 2 
20K(N,11 )*M<9) ) +PS I (1 lr LO )*RHOK(N, 10 ) *M ( l 1 ) / ( RHOK ( N » 1 1 ) *M( 10) > +PSI ( B 28 3 
311 f 12)*RH0K(N«12)*H(ll)/(RH0K(N»in*M<12M*AJ«-KG B 284 

27 CONTINUE 8 285 

IF <MFK(Ntl2) .LT.l.E-5) GO TO 28 B 286 

A= ( P S I ( 1 2 » 1 ) *R HOK ( N» 1) *M( 12>/(RH0K(N, 12)*M( 1 M +PS I ( 12 , 2) *RHOK I N, 2 ) B 28 7 

1*M( 12)MRHCK(N,12 J*M(2) ) «-PS I ( 12 , 3 ) *RHOK{ N, 3 ) *M ( 12 I / (RHOK ( N , 12)*M( 3 B 28 8 
2) )+PSI(12»4)*RH0K(N,4)*M( 12) / ( RrlOKI N t 12) *M( 4 ) I +PS I I 12 , 5 ) *RHOK ( N* 5 ) B 2 89 
3*M( 12 ) M RHOK (N»12)*M(5))+PSI(12*6)*RH0K(N»6)*M( 12 ) / ( RHOKl N 1 12 ) *M( 6 8 290 

4) ) ) R 291 

KG=KGK< 12)/ ( l.+PSI(12,7)*RH0K(N, 7)*M( 12) /( RHOK( N* 12 l*M( 7) ) +PSI ( 12 » B 292 
1 3 ) *RHQK (N»8)*M( 12 )/( RHGK(N» 12 ) *M ( 8 ) ) P S I (12*9) *RHOK (N»9)*N(12)/(RH B 293 
20K ( N t 12)*M< 9) ) +PSI ( 12, 10 ) *RHOK ( N , 1 0 > *M{ 12 ) / ( RHOK (N*12)*M( 10H+PSH B 294 
312 ,11 )*RHOK (N, 11 )*M 12 )M RHOK (N, 12 ) **( 11) )+A )+KG B 295 

28 CONTINUE B 296 

PR(N) = MU( N) 7KG*R0CPM (N XRHO(N) B 297 

RETURN 8 293 

END B 299- 
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SUBROUTINE PDE1 <FS,CRNI) 

SUBROUTINE FOR SOLVING SECOND ORDER LINEARIZED DIFFERENTIAL EQUA- 
TIONS FOR TEMPERATURE OF THE CHAR AND UNCHARRED LAYERS. 
DIMENSION AS(llO), BS(UO), CS(ilO), DS(llO), BP(llO), FS(llO), GP 
1(110), ALPHB4 ( 1 10 ) » ALPHA2(110), ALPHB3<110), TSP(llO), ALPHP2(110 
2), KS( 50) , ALPHPl(llO), ALPHA1 (110), TP(50), KP(iOO), KPP(llO), TF 
3S ( 1 10) , ALPHA3I110), ALPHA4I110), ALPHP3(110), ALPHP4(110) 

COMMON ZDE1DE2 1 AS , BS , CS , DS, BP, GP 

COMMON /PD5 1/ ALPHI1 , ALPH 12 , ALPH I 3 , At PH 1 4 , A LPH I P 1 , ALPHIP2, ALPHIP3, 
1ALPHIP4,GAMMU,GAMMI2,GAMMI4,GAMMIP1, GAMM I P 2 , G AMM I P 3 , G AMMI P 4 , SGMA , 
2DX,ALPHA1 ,ALPHA2, ALPHP1 , ALPHP2 , ALPHB3, ALPHB4 , DT , L , Q , K S , L P , QP T , KSP 1 
3 ,T SP,DXP, IP, I , 10, IN, I01,KP,LPP,LPPP, <SPI ,KPPI , MGDOT ,DH P , MGDOT P , ONE 
4T,QPNET,KPPIP,GAMPI3, I M, EPSS, EPSP ,0X1 , 0XP1, ALPHAS, ALP HP 3, ALP HP A, AL 
5PHA3,HTSK,HTSKP, IOPTI, IOPTI ,T1BAR,TIBAR 
COMMON 7TS7 I P 1 , I Z 1 , KPP , GAM I P 1 , GAM I P 2 , G AM I P 3 , GAM I P 4 , GA M I PP l , S AMI PP 
1 2 » G AMI PP 3 ,GAMI PP4 * KA PI PI » KAPI P2 » K AP I P3 , K AP I P4 , K AP I P PI » K AP I PP2 » IL,K 
2APIPP3,KAPIPP4,DXPP, KPPP IP,KPPP IZ, I Z 
DOUBLE PRECISION A S , BS , CS , DS , GSC NST , H SCNST , A I S CNS T , ZSCN ST , Y SC N ST , X 
1SCNST ,AIS,B!S*CIS,DI S, BP ,GP , wS, TF S 
REAL KS,KP,L,L P, MGDOT ,LPP,LPPP, MGDOTP ,KPPI,KSPI»XSP 1»<PPIP,KAPIP1, 
1KAP I P2 » KAP I P3 » KAP I P4 »KAP I PP1 » KA P I PP2 * K AP I PP3 » K API PP4, I L , KPPP I Z , KPP 
2PIP»KPP 

CALCULATE TRI-OIAGCNAL MATRIX COEFFICIENTS 
DDX = DX 1 

IF ( IOPTI. EC. 0) GC TO 1 

IF { (FS( D-T1BAR) .GT.l.E-6) GO TO 2 

CONTINUE 

BS( 1)=CRNI*< ( ALPHAK 1 )-ll ./ ( 6.+DDX ) ) *L*SGMA*EPSS*FS ( 1 ) **3/KS( l )-3 . 
1/ (2.*DDX**2 )+ALPHA2( l) )+ALPHB4( DZOT 
CS( 1 )=3.*CRNI/(4.*DDX**2) 

GSCNST=CRNI*<3./( 2.*DDX**2)-1 ./( 6.*D3X**2) ) 
HSCNST=-3.*CPNI/(4.*DDX**2) 

A I SCNST =C RN I /( 6.*DDX**2) 

DS (1)=-ALPHB3(1)+CRN1*( ALPHAK 1)-11.M 6. *DDX) )*Q*L/KS( !)♦( i.-CRNI ) 
1*( ALPHPlt l)-ll./( 6.*DDX) ) *QPT*LPP/KSP 1- ( (l.-CRNI )*( ( ALPHPI ( 1 ) -1 1 ./ 
2 (b.*DDX) )*LPP*SGMA*EPSS*TSP( 1 ) **3 7KS ? 1- 3. / ( 2 . *ODX** 2 ) + AL PHP 2 ( 1 ) ) - A 
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2 


3 


4 


5 


3L PHB4( 1 )/DT ) *T SP( 1)-(1.-CRNI I * ( 3 . / ( 4. *DDX** 2 ) *TS P ( 2 ) «- ( 3 . / ( 2 . *DDX** 
42 )-l .7(6. *CDX**2 ) )*TSP( 3 )-3.7( 4. *0 3 X**2 ) *TSP ( 4) + 1 . ({ 6.*QDX**2 ) *TSP 
5(5) ) 

GO TO 3 
CONTINUE 
BS( 11=1. 

CS( I ) = 0. 

GSCNST = 0. 

HSCNST = 0 . 

AI SCNST = 0. 

DS( 1 ) = T 13 AR +- 1 • E- 4 

CONTINUE 

DO 5 N=2»IM 

IF (N.NE.20) GO TO 4 

DDX=DX 

GO TO 5 

AS(N)=CRNI*( U/DDX**2-ALPHAl (N)/ (2.*0DX) ) 

BS(N)=CRNI*( ALPHA2IN )-2 . /DDX**2+AL *>H34 ( N ) / ( DT*CRN I ) ) 

CS( N)=CRNI«‘(U^0DX**2«-ALPHAl(N)/(2.*DDX) ) 

0S(N)=-ALPH83( N)-< 1-CRNI ) * ( { 1 . /DDX**2 - ALPHP 1( N ) / ( 2 . *DDX ) )*TSP(N-i ) 
1 + <AIPHP2(N)-2.7DC)X**2-AIPHB4(N) MDT*( 1 .-CRN I ) ) )*TSP(N>+< IWD3X**2 + 
2ALPHPKN) / ( 2.*DDX) )*TSP(N+1) ) 

CONTINUE 

BS < 1 ) = AS ( 2 ) /CS ( 2 )* (CS( J)*CS ( 4 ) *GSCNST- AS (4) *CS ( 3)*AISCNST-BS(3)*(C 
1S(4)*HSCNST-3S( 4)*AI SCNSTD-C S( 3)*C SI 4) *BS( 1) 

CS( I )=BS(2)/CS (2 )*(CS(3)*CS(4)*GSCNST-AS(4) *CS( 3) *A ISCNST-B$( 3)*(C 
1S< 4)*HSCNST-BS(4)*AI SCNST) )-C S ( l ) *C S ( 3 ) *CS ( 4 ) ♦ AS ( 3 ) * ( C S ( 4 ) *HS CNST- 
26S(4)*AISCNST) 

DS(1)=DS(2)/CS(2)*(CS(3)*CS(4)*G$CNST-AS(4)*CS<3)*AISCNST-BS(3)*<C 
1 S ( 4 ) *HSCNST-8S ( 4 ) *AI SCNST))-CS(3)*CS(4)*0S(1H-CS(3)*DS(4)*AISCNST + 
2DS(3)*(CS(4)*HSCN$T-BS(4)*AISCNST) 

AS( 20)=CRNI*( ALPHAK 20) *DX/ ( DX1* ( DX H-OX ) ) —2 - ✓ ( UX1*( DX1+CX) ) ) 
BS(20)=CRNI*(2.M DX*DX I ) -AL PH A2 ( 20 ) -AL P HA I ( 2 0 I *( 0X-DX1 ) 7 ( DX 1*0X) ) - 
1 ALPHB4 ( 20) /DT 

CS< 20) = CRNI*< -2.7 (LX *( DXH-DX) )-ALPHAl( 20 ) *D X 1 7 ( D X* ( DX I + OX) ) ) 


C 37 
C 38 
C 39 
C 40 
C 41 
C 42 
C 43 
C 44 
C 45 
C 46 
C 47 
C 48 
C 49 
C 50 
C 51 
C 52 
C 53 
C 54 
C 55 
C 56 
C 57 
C 58 
C 59 
C 60 
C 61 
C 62 
C 63 
C 64 
C 65 
C 66 
C 67 
C 68 
C 69 
C 70 
C 71 
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6 


7 


8 


DS (20 )=-ALPH83 (20 )-( l.-CRNI ) * ( AL PUP 1 ( 2 0 ) *D X/( DX1* ( 0 Xl + D X ) )-2. /( 3X1 
1*( DX1+DX) ))*TSP( 19)-( (l.-CRNI )* ( 2 . / <0X*DX1 ) - ALPHP2 ( 20 I - ALPHPl ( 20 ) * 
2(DX-DX1)/(DX1*DX) ) +ALPHB41 20 ) /D T ) *T S? ( 20 ) ♦( 1 .-CRN I) *( 2 . / ( OX* ( DXUD 
3 X ) )+ALPHPl(20)*DXl/(DX*(DXl+DX) ))*TSP(2l) 

DDX=OXP 1 

DO 7 N= IN » I Cl 

IF (N.EQ. (1*20)) GO TO 6 

AS(N)-CRNI*(1 • / DO X** 2-ALPHA 1 ( N) M2.*3DX) I 

BS( N)=CRNI*( ALPH A2 ( N )-2 . / DDX**2 ♦ ALPHB4 ( N ) / ( DT *CRN I ) I 

CS(N)=CRNI*( 1 ,/DDX**2* ALPHA 1 ( N» /( 2.*DDX) ) 

DS(N)=-ALPHB3( N)-< 1-CRNI >*( ( 1 . / DDX**2 - ALP HP 1 ( N ) / ( 2.*DDX) )*TSP(N-1) 
l+(ALPHP2(N)-2./D0X**2-ALPHB4(N) /(DT*( l.-CRNI ) ) ) *T SP ( N ) ♦ ( 1 . /D0X**2 ♦ 
2 ALPHPl < N I /(2.*DDX ) )*TSP(N*1) ) 

GO TO 7 
DDX=DXP 

AS(N)=CRNI* (ALPHA1 ( N ) *DX P/ ( DX PI * ( DX P *DX P 1 ) )-?./( DXP l* ( DXP*DXP 1) ) ) 
BSlN)=CRNI*(2./(OXP*DXPl)-ALPHA2(N)-ALPHAi(N)*(DXP-DXPl)/(DXPl*0XP 
1 ) )- ALPHB4 ( N ) /DT 

CS( N)=CRNI*(-2./ ( GXP*( DXP1+DXP ) )-ALP3Al { N ) *D X P 1/ ( DX P* ( DX PI + DX P )) ) 
DS(N)=-ALPHB3(N)-( l.-CRN I ) *( ALP HP i( N ) *OXP /( DXP l* ( DXP 1 + DXP ) ) -2 . /(DX 
IP1*< DXP 1 + DXP) ) )*TSP< N-l)-< (l.-CRNI )*( 2 ./ ( DXP+DXP1 )- ALPHP2 (N ) - ALPHP 
21 (N) *( DXP-DXP 1 ) / ( DXP i * 0 X P ) i +ALPH B4( N ) /DT ) *T SP ( N ) K 1 .-CRNI ) * ( 2 . / ( DX 
3P*( DXP 1+DXP ) ) + ALPHPl (N)*DXP 1/ ( DXP* ( DX P 1+DXP ) ) ) *TSP( N+ l ) 

CONTINUE 

IF ( IOPTI.EO.O) GO TO 8 

IF ( <FS( I I-TIBAR) .GT.l.E-6) GO TO 9 

CONTINUE 

AKSL=DX*KS< I )*ALPHI4/L 
AKPL =DXP 1 *KP ( I ) *G APM I 4/LP 
AKAL=CRNI /( AKSL+AKPL ) 

AKSLP=DX*KSPI*ALPHIP4/LPP 
AKPLP=DXP1*KPPI*GAMMIP4/LPPP 
AKALP=( l.-CRNI )/( AKSLP+AKPLP) 

Z I S = -AKAL *K S ( I )/ ( 6.*DX*L ) 


C 72 
C 73 
C 74 
C 75 
C 76 
C 77 
C 78 
C 79 
C 80 
C 81 
C 32 
C 83 
C 84 
C 85 
C 86 
C 87 
C 88 
C 89 
C 90 
C 91 
C 92 
C 93 
C 94 
C 95 
C 96 
C 97 
C 98 
C 99 
C 100 
C 101 
C 102 
C 103 
C 104 
C 105 
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YIS=AKAl*KSCI)/L*<.76/DX+ALPHll/3.) C 106 

XI S=-AKAL*KS( I )/L*(4./C3.*DX)U.5*ALPHll) C 107 

AIS=-AKAL*KSC I ) / L + ( .75/DX— 3.*ALPHI 1) C 108 

BIS=AKAL*(KSt I ) /L * ( 1 .5/ OX-1 1 . *AL PH 1 1 /6 ,-ALPH 1 2*DX ) +KP ( I )/LP*( 1.5/D C 109 
lXPl+ll.*GAMMIl/6.-GAMMI2*0XPl) )-l./DT C 110 

CIS=-AKAL*KPC I )/i_P*< .75/ CXP 1+3. *GAMM I 1 ) C 111 

EIS=-AKAL*KPC I )/LP*( 4./C 3.*DXP1 )-1.5*GAMMIl ) C 112 

FIS=AKAL*KP( I J/LPM.75/DXP1-GAMMI 1/3. ) C 113 

GIS=-AKAL*KP(I)/(IP*DXP1*6.) C 114 

DIS=-ll.*AKAL/6. *CMGD0T*DHP-6.*ALPHI 3/ll.*DX*KS< I ) /L-6. +GAMMI 3*DXP C 115 
1 i*KP( I) /( 11 .*LP) ) — 11 .*AKALP/6.*( MGDOT P *DHP- 6 . * AL ’ H I P 3*D X*K SPI /111. C 116 
2*LPP)-6.*GAMMIP3*DXP1*KPPI/(LPPP*11. ) ) + AKAL P*KSP I /L P P* < T S P ( 1-4)/ (6 C 117 
3 .*DX)-C .75/ DX + AL PH IP l/3.)*TSP(I-3)+C4. /( 3. *D X )♦ 1 . 5* AL PH I P 1 ) *TSP ( I- C 118 
42)+(.75/0X-3.*ALPHlPl)*TSP( 1-1) )-( AKALP* ( KSP I /LPP*< 1 . 5/ OX-l 1 . *ALPH C 119 
5IPl/6.-ALPHlP2*DX)+KPPI/LPPP*( l . 5/0 X? 1+ l 1 . * GA MMl P 1 / 6. -G AMMI P2 +DXP1 C 12 0 
6) )+l./DT)*TSP< I)+AKALP+KPPI/LPPP*((.75/DXP1+3.*GAMMIP1)*TSP( I+l)+< C 121 
74./C3.*DXPl)-l.5*GAMMIPl)*TSPCI+2)-C. 7 5 /DXP 1-GAMM I P 1 / 3 . )*TSPC 1*31+ C 122 
8T SP( 1+4) / (6.*0XP1 ) ) C 123 

AS( I )=-CBSCl-i)*XlS/AS(I-l)-CS(I-3)*3S<I-l)*ZlS/C AS C I-l ) *AS C 1-3 > )- C 124 
IBS ( I-l )*BS< 1-2 )*Y IS/ ( AS< I- l ) ♦ AS ( 1-2 )) + BSC I- l)*0St 1-2) ♦BSC I-3)*ZI S/ C 125 
2< AS( I-i)*AS(I-2)*ASC 1-3) )-AI S+CS ( 1-2 ) * Y I S/ AS ( I -2 ) -BS ( I -3 ) *CS C 1-2 ) * C 126 
3ZIS/(AS< I-2)*ASC 1-3) )) C127 

B S t I ) = - ( -B I S+ AS ( I+l)*EIS/CS(I+l)-AS( I +1 ) * AS C I+3)*GIS/(CSC I +3 ) *CSC I C 12 8 
1+1) )-ASC 1+1 )*BSC 1+2) *FI S/C CS( I+1)*CSC 1+2) )+AS< I+1)*BS< I +2)*BS( 1+3) C 129 
2*GIS/(CS(I + 1)*CS( I+2)*CS( 1 + 3) ) +CSC I-l ) *XI S/ ASC I - 1 ) - CS« I-i)*CS(I-3) C 130 
3*21 S/( AS(I-1)*ASC 1-3 ))-BS(I-2)*C$( I-l ) * Y I S/ ( AS(I-1)*AS( 1-2) )+BS( I- C 131 
42)*BS( I-3)*CS( I-i )*ZIS/C AS( I - 1 ) *A$C I -2 ) *AS< 1-3) )) C 132 

CSC I ) =— B S t I+l)*EIS/CS(I+l)+AS( I + 3 ) *B S ( I+1)*GIS/(CS( I + 1 ) *CS ( I +3 ) ) +B C 133 
ISC I + 1 ) *BS ( I+2J+FI S/CCSC I + l)*CS( 1+2) ) -BSC 1+1 )*RS< I +2)*BS( I+3)*GIS/ C C 134 
2CS( 1+1 )*CS( 1+2 ) *CS ( 1+3) ) +C I S- AS ( 1+2 ) *F IS/CS' I +2 ) + AS ( I +2 ) *B SC I + 3 ) *G C 135 
3IS/CCSC I+2)*CSC 1+3) ) C 136 

DSC l )=-DSC I+1)*E IS/CSC I + D + ASC l+3)*DS< I + 1)*GI S/C 1 SC I + l)*CSl 1 + 3) )+B C 13 7 
lSCI+2)*DSCl+l)*FIS/CCSCI+l)*CSCI+2) ) -BS ( I +2 )*BS C I +3 )*DSC I+l)*GIS/( C 138 
2CS ( I +1 )*CS ( I +2 )*CS( I +3) ) +D1S-DSC I +3) *GI S/CSC I + 3) -DSC I+2)*FI S/CSC 1 + C 139 
33) + BSC I + 3)*DSC 1+2 )*G IS/C CSC I+2)*CS( 1+3) )+DS ( I-l ) *CS C I -3 ) *Z I S/ C ASC I C 140 
4-1 ) *ASC 1-3) )+RS( 1-2) *DSC I-i)*YI S/C ASC I-1)*AS( 1-2) )-3SC 1-2 )*BSC 1-3 ) C 141 
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5*DS( I-i)*ZIS/( AS< I-1)*AS(I-2)*AS( 1-3) )-0S< I- 3 ) * L I S/ AS ( I -3 ) -OS ( I -2 ) C 142 
6*Y I S 7 AS ( I -2 ) +BS ( I - 3 1 *DS ( I-? ) * ZI S/ ( A S ( 1-2 ) *AS< I- 3 ) l-DS<I-l)*XI S/AS( C 143 
71-1) C 144 

GO TO 10 C 145 

9 CONTINUE C 146 

AS 1 I)= 0 . c 147 

B S ( I ) = 1 . C 148 

CS(I) = 0 . c 149 

DS< I )=TIBAR+l.E-4 C 150 

10 CONTINUE C 151 

DO 11 N= I P 1 » I Z 1 C 152 

AS(N)=CRNI*(l./DXPP**2-ALPHAl(N)/{2.*DXPP)) C 153 

BS< N)=CRNI*(ALPHA2 (N )-2 . /DXPP **2+AL PHB4 ( N ) / ( DT*CR NI ) ) C 154 

CS(N)=CRNI*(1./DXPP**2+ALPHA1(N)/(2.*DXPP)) C 155 

DS(N)=-ALPHB3(N)-( l.-CRNI )*( ( 1. /OXP P** 2-ALPHP 1 ( N) /(2.*DXPP) )*TSP(N C 156 

1-1 )♦( ALPHP2 I N ) — 2 . 7CXPP**2-ALPHB4(N) 7(DT*< l.-CRNI) ))*TSP(N)+{ l./DXP C 157 
2P**2+ALPHP1 <N) /( 2.*DXPP) )*TSP(N+11 ) C 158 

11 CONTINUE C 159 

AK=CRN 1 / ( KP ( IP )*GAMI P4*DXP/ LP+KPP ( I P ) *K AP I P4*DXPP / I L-HT SK ) C 160 

AKP=( l.-CRNI )/ UPPIP*GAMIPP4*DXP/LPPP+KPPPI P*KAPI PP4*D XP P/ I L-HTSK ) C 161 
ZIS=-AK*KP< IP)7(6.*CXP*LP) C 162 

YIS = AK*KP< IP)*( .75/DXP + GAMIP1/3. )/l_P C 163 

XIS*-AK*KP(IP)*(4.7(3.*DXP)+1.5*GAMI?L) 7LP C 164 

AIS=-AK*KP( I P ) * ( . 7 5/DXP-3 #*G AMI PI) / L P C 165 

BIS = -i./DT«-AK*(KP( IP )/LP*( i.5/DXP-ll.*GAMIPl/6.-3AMIP2*DXP)+KPP(IP C 166 

1 ) / I L*( 1.5/D XPP+ll«*KAPIPl/6.-KAPIP2*0XPP) ) C 167 

CIS=-AK*KPP( IP )*< .75/DXPP+3.*KAPIPl )/IL C 168 

EIS=-AK*KPP(lP)*(4.M3.*0XPP)-l.5*<A?IPl)7IL C 169 

FIS=AK*KPP( IP)*( . 75/DXPP-KAPI Pl/3. ) /I l C 170 

GIS=-AK*KPP(IP)7(6.*DXPP*IL ) C 171 

01 S=AK*(KP( IP) *GAMIP3*DXP/LP+KPP( I P ) ♦« API P3*DXPP/ IL )-AKP*KPP I P/LPP C 172 
1P*(-TSP< I P-4 )/ ( 6 . *DXP ) ♦( .75/DXP+GAMIPPl/3.)*TSP( I P-3 ) - ( 4. / ( 3. *DXP ) C 173 
2+1. 5*GAMIPP1)*TSP( IP— 2 )- ( .75/DXP-3.*GAM IPP1 )*TSP( IP-1 ) )-( AKPMKPPI C 174 
3P/LPPP*( 1 .5/OXP-ll .*GAMIPPl/6.-GAMI PP2*DX P) +KPPPI P/ I L* ( 1 . 5/DXPP+l 1 C 175 
4.*KAPIPP176.-KAPIPP2*9XPP ) ) +1 ./DT ) *TSP ( IP ) + AKP*KPPP IP Ml*l ( • 757DXP C 176 
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5P+3.*KAPI PP1 )*TSPlIP+l) + <4./( 3.*DXPP )- 1 .5*KAP IPP1 )*TSP I IP + 2) - ( . 75/ C 177 
6DXPP-KAPI PP1/3. )*TSPIIP+3)+T$P( I P+4) / ( 6 . *0 XPP ) ) +AKP*< K PP I P*G AM I PP 3 C 178 
7*DXP/LPPP+KPPPIP*KAP IPP3*DXPP/IL ) C 179 

AS( IP)=-( 3SC IP-1 )*XI S/AS( IP-1 )-CS( IP -3 )*BS{ IP-1 )* ZI S/ ( AS I I P-1 )*AS ( C 180 
1 1 P—3 ) ) -BS ( IP-1 )*BSl IP-2 ) *YI S/ l AS I I P-1 ) * AS( I P- 2 ) ) + BS ( I P-1 ) *B SI I >'-2 ) C 181 
2*BS( IP-3)*ZIS/IAS< IP-1)* AS ( IP-2 )*AS( IP-3 ) )-AI S + CS ( IP-2 )*YIS/AS( IP- C 182 
32J-BSI IP-3)*CS< IP-2)*ZIS/IAS< IP-2)*AS( IP-3) ) ) C 183 

BSI IP) = -(-BIS+AS I IP+l )*EISZCS l IP + 1 )-AS( IP + 1 )*AS( IP + 3 ) *GI S/C C SI I P+ 3 C 184 
1 )*CS( I P+1 ) )-AS( I P + 1 ) *BS ( IP+2)*FIS/( C SI I P + 1 )*CS( IP +2 ) )+AS( I P + 1 )*BS( C 185 
2 I P+2 )*BS ( IP+3)*CIS/ICSI IP+l)*CSl IP+2)*CSI IP+3))+CSt IP-l)*XIS/AS< IP C 186 
3-1 ) -CSC IP- l )*CS( IP-3 )*ZI S/l ASl IP-l )*AS ( IP-3 ) )-BS( IP-2 )*CS( IP-1 )*YI C 187 
4S/ ( AS ( I P-1 )*AS( IP-2) )+BS< IP-2 )*B SUP- 3) *CS< IP-1)* ZI S/< AS( IP-1 )* AS < C 188 
5IP-2)*AS( IP-3) ) ) C 189 

CS( IP) =— 3 S ( IP+i )*EI S/CSI IP+D+ASI IP+i)*BS( I P+1 )*GIS/ICSIIP+1 )*CS( I C 190 
1 P+3 ) ) + BS ( IP + 1 ) *B S ( IP+2)*FISMCS( IP+1)*CSI IP+2))-3S( I P + 1 ) *B S ( I P + 2 ) * C 191 
2BS( IP+3)*GIS/(CS( IP+1)*CS(IP + 2)*CS( IP + 3 ) )+CIS— AS( IP+2)*FIS/CS(IP + 2 C 19 2 
3) +AS ( IP+2 )*BS( IP+3)*GIS/ICSl IP+2)*CS( IP+3)) C 193 

DSl IP)=-DS< IP+1 )*E IS/CSI IP+1 ) +AS ( IP + 3 )*DS (IP + 1)*GIS/(CS(IP + 1)*CS(I C 194 
IP +3) ) + BS( IP+2) *0S( IP+1 )*FI S/ICS (IP+1) *CS( IP + 2) )-3S( IP+2) *BS( IP+3)* C 195 
20SI IP+1 ) * G I SM CS ( IP+1)*CS( IP+2 )*CS( IP+3 ) » +0 I S-OS ( IP+3) *GI S/CSI IP+3 C 196 
3 )— DS( I P + 2 ) *FI S/CSI IP+3) +BSI IP + 3 )*D SI I P + 2 ) *G I S/ I CS I I P + 2 ) *CS I I P +3 ) ) + C 19 7 
4 LSI IP-1)*CS( IP-3 )*ZIS/t AS! IP-l)*AS(I ;> -3n+BS(IP-2)*JS(IP-l)*inSMA C 198 
5SI I P-l ) *AS( IP-2) )-BSHP-2)*BS( IP-3 )*JS I I P-1 ) * Z I S/ ( AS I I P -1 ) * AS ( IP- 2 C 199 
6 ) *AS ( I P-3 ) )-0S( IP- 3) *ZIS/ASt I P-3 1-0 SI IP-2 )*YI S/ASI I P-2 ) ♦ BS ( I P-3)*D C 200 
7S 1 1 P-2 )*ZIS/IASI I P-2 )* AS I IP— 3 ) ) — OS I IP-1 )*XIS/AS( IP-1) C 201 

ZSCNSF=CRNI *KPPI IZ )/ I 6. *DXPP**2* 1 L* HTSKP*( ALPHA 1 ( I Z ) + 1 1 . / I 6. *DXP P C 202 
1))-ALPHA4(IZ)*KPP( IZ)/IL)) C 203 

YSCNST=-4.5*ZSCNST C 204 

XSCNST=8.*ZSCNST C 205 

AS; IZ)=-YSCNST c 206 

BS I IZ)=(6.*0XPP**2*ALPHA2{ IZ)-9. )*ZS:NST-CRNI*SGMA*EPSP*FSI I Z )**3* C 207 
II ALPHAl(IZ)+ll./(6.*DXPP) ) / I HTS KP* I AL PHA II I Z ) + 1 1 . / I 6. *DXPP ) ) - ALPHA C 20 8 
241 IZ)*KPP( IZ)/IL)-1./0T C 209 

DSt I Z) =-CRM* I ALPHA1 (IZ) + 1L./ I6»*DXP 3 ) » fl HT SKP *( ALP HA 1 1 1 Z ) + 1 1 . / 1 6. C 210 
1*DXPP) )-ALPHA4t I Z)*KPP( I Z ) / I L ) * I CNET + AL PH A3 I I Z ) *K PP ( I Z ) / ( I L* I AL PH A C 211 
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21(IZ)+ll./(6.*DXPP))))-< l.-CRNI ) *( ALPHP1 ( IZ )*U./ <6.*DXPP ) ) / ( HTSKP C 212 
3*( ALPHP1 ( IZ )♦! l.M6.*DXPP) )-ALPHP4( I Z) *KPPP IZMU *( OPNE T+AL P H P3 ( I Z C 213 
4)*KPPPI L/i I L*( ALPHP1 (IZ) +11«/ (6«*DXPP) ) )+KPPPIZ/ ( I L * ( ALPHP 1 < I Z )+ll C 214 
5./ ( 6 . *DXPP ) ) )* (TSP( IZ-4)/( 6.*DXPP**2)- .75*TSP< I Z - 3 ) 7DXPP**2+4.*TSP C 21 5 
6( IZ-2)/(3.*DXPP**2)+.75*TSP( IZ-1 )/OXPP**2-( 1 .5/DXPP**2-ALPHP2( IZ ) ) C 216 
7*TSP(IZ))-SGMA*EPSP*TSP<IZ)**4)-TSP(IZ)/DT C 217 

AS ( IZ)=AS< IZ-2 )*BS( IZ-i )*(AS( IZ-3 ) *XSCNST-C S ( IZ-3)*ZSCNST)-BS( IZ-1 C 218 
2 )*BS( I Z-2)*f4SUZ-3) *YSCNST-BS( I Z-3)*ZSCNST) + A$ (I Z- 1 ) *CS ( I Z-2 >* f AS C 219 
2 ( IZ-3)#YSCNST-BS ( I Z- 3 ) *Z SCNST )-A $( I Z )* A S ( I Z- 1 ) *AS ( I Z-2 )* A S ( IZ-3) C 220 
BS( I Z ) = AS ( IZ-2 )*CS( IZ-1)*( AS( I Z-3 ) * XSCN ST-C S ( I Z-3 ) * ZSCNST )-BS ( I Z-2 C 221 
1)*CS( IZ-i ) * l AS ( I Z— 3 ) *Y SCN ST-B S( I Z- 3 ) *Z SCN ST ) - A S ( I Z- 1 ) * AS ( I Z-2 ) * AS ( C 222 
2 I Z-3 ) *BS( IZ) C 223 

DSU Z) = AS( IZ-2 ) ♦DSC I Z-l)*( AS< I Z- 3 ) * XSCN ST-C S ( I Z-3 )* ZSCNST )-BS ( IZ-2 C 224 
1 )*DS( IZ-i )*< A$( IZ-3)*YSCNST-BS< IZ-3 ) ♦ZSCNST )- AS( I Z - 1 ) *AS ( IZ- 2 ) *< AS C 226 
2(IZ-3)*DS( IZ)-OS( I Z-3) ♦ ZSCNST )+AS( IZ-1 )*DS( IZ-2)*( AS( I Z-3 ) *Y SCNST- C 226 
3BS ( I Z-3 ) * ZSCNST ) C 227 

CS< IZ) = 0. C 223 

C SOLVE TRI-DIAGONAL MATRIX FOR TS C 229 

BP(1)=CSU)/BSI1I C 230 

GP(1)=DS( 1)/8S(1) c 231 

00 12 N=2 t I Z c 232 

WS=BS(N ) - A S < N) *BP ( N-l) C 233 

BP(N)=CS(N)/WS C 234 

GP(N)=(DS(N)-AS(N)*GP(N-l) ) / W S C 235 

12 CONTINUE C 236 

TFS( IZ) =GP( IZ) C 237 

FS( IZ)=TFS( IZ) C 238 

KON= I Z 1 C 239 

00 13 N= 1 ? I Z 1 C 240 

TFS ( KON ) = GP IKON )-BP(KON)*TFS( KON 1 ) C 241 

F S ( KON) =TFS(KGN) C 242 

13 KON=KON— 1 C 243 

RETURN C 244 

END C 245- 
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SUBROUTINE POP ( CRN I , DT , L , OX, DX l , MOD OT » MGDOTP , LP? » I » I M » RHQ » P » MU » T » 
ITPtRU) 

SUBROUTINE FOR SOLVING SECOND ORDER LINEARIZED DIFFERENTIAL EQUA- 
TIONS FCR PYROLYSIS GAS PRESSURE IN THE CHAR LAYER. 

DIMENSION RH0<50), P (50), MU( 50) , AS(50), BS<50)» CS(50), DS(50), 

1 BP ( 50 ) ♦ GP ( 50 ) t T ( 50 ) ? TP(50), ZP{50) 

COMMON /POP/ PALI ( 50 ) , P AL2 ( 50 ) , P AL 3 < > 0 ) , P AL4 ( 5 0 ) » PAP1 ( 50 ) , P AP 2 < 50 ) 
i,PAP3(50) tPAP4(50)tPAB3(50),PAB4(50),PWP,PPl 50 ) , P M{ 50) » P MU , PPM , PRH 
20(50), ETA(50)tETAP(50) , AVGMFI50) * AVGMFP(50) 

COMMON /DEIDE2/ A S , B S,C S , D S , R P , GP 
REAL MU» L » RGDOT » L FP» MGDOT P 

DOUBLE PRECISION A St BS ,C S ,DS , PX, P Y , PZ , PA , PB , PD , BP , GP , irf , ZP 

CALCULATE TRI-DIAGCNAL MATRIX COEFFISIENTS 

I N= I -2 

DDX= DX I 

DO 2 N=2 * I M 

IF (N.NE.20) GO TO I 

DDX=DX 

GO TO 2 

AS(N)=CRNI*(1 • ZDDX**2— PAL l(N)/(2.*0DX) ) 

B SC N)=CRNl*(PAL2(N)-2./DDX**2)+PAB4( M J/DT 
CS( N)=CRNI*< l./DDX**2+PAL UN) /< 2.*0DX) ) 

DS< N)=-PAB3 (N)-(l .-CRN I )*< ( l./DDX**2-PAPl(N ) / ( 2.*0DX) )*PP(N-l)**2- 
1 <2./DDX**2-PAP2( N )+PAB4( N)/(DT*( I. -CRN I ) ) )*PP { N) **2 + ( I ./0DX**2+PAP 
21 <N) /(2.*DCX))*PP(N+i)**2) 

CONTINUE 

AS(20)=CRNI*(PALi(20)*DX/(DXl*<DXl+DX) )-2. / ( D XI* ( DXI+DX) ) ) 
BS(20)=CRNI*(2./(DX*DXi)-PAL2(20)-PALi (20)*( DX-DXI)/( DX1*0X) )-PA34 
I ( 20 ) /DT 

CS(20)=CRNI*(-2./ (DX*( DXI+DX ) )-PAL 1 ( 20 ) *DX 1/ ( DX* t DXI+DX) ) ) 
DS(20)=-PA83(20)-< I. -CRN I ) *< PAP1 ( 2 0) * DX/ ( DX 1* ( DX 1 +DX) ) — 2 • / ( DX1*( DX 
Il+DX) ) )*PPC 19)**2-(( I.-CRNI )*(2./(DX*DXl)-PAP2( 20 )-P AP l ( 20 ) * ( DX-DX 
21 )/( DX1*DX) )+PA94( 20 )/DT)*PP( 20)**2+(l .-CRN I )*(2./(DX*( DXI+DX) ) + PA 
3 PI ( 20) *0X1/ ( DX* ( DXI + DX) ) )*PP< 2l)**2 
DS(2)=DS(2)-AS(2)*P( 1)**2 
A S < 2 ) = G. 


D L 
0 2 
D 3 
D 4 
D 5 
D 6 
D 7 
D 8 
0 9 
D 10 
D 11 
D 12 
D 13 
D 14 
D 15 
D 16 
D 17 
0 18 
D 19 
D 20 
D 21 
D 22 
D 23 
D 24 
D 25 
D 26 
0 27 
D 28 
D 29 
0 30 
D 31 
D 32 
D 33 
D 34 
0 35 
0 36 
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c 


3 


4 


PX=CRN1 /( 6. *DX**2 ) 

PY=-.75*CRNI/DX**2 
PZ=4.*CRNI/ (3.*DX**2 ) 

PA=- P Y 

P8= PAB4 ( I ) /DT+CRN I*( PAL2 ( I I-3.H 2.*DX**2I) 

PD=-P AB3 ( I ) -( 1 .-CRNI)*( ll./I 6.*DX)*PAP1 (I ) ) * ( 2 . * PM J*L PP*MGOO T P*RU* 
IT P ( I )/ ( AVGMFP ( I )*PPM ) )-CRNI*( 11 ./( o.*DX J + PALl { I ) ) * ( 2. * MU( I ) *L*MGDO 
2T*RU*T(I) / ( AVGMF ( I )*PMl I ) ) )-< 1 .-CRN I )*( PP( 1-4 ) **2/'( 6. *DX**2 ) - . 75*P 
3P ( 1-3) **2 /QX**2*4.*PP( I-2)**2/(3.*DX**2)«-.75*PP(I-l ) ** 2 /DX**2 *■ ( PAP 
42 ( I )-1.5/DX**2-P4B4( I ) /( DT* ( 1 .-CRN I ) ) ) *PP ( I ) **2) 

AS (I )=PA-CS( 1-2) /AS( 1—2 )*(PY— PX*BS( I -3 ) / AS ( 1-3 ) ) -8S ( I - 1 ) / AS ( I -1 1 * ( 
1PZ-PX*CS( 1-3 ) / AS ( 1-3 )— BS ( 1-2 ) /AS ( 1-2) * ( PY-PX*B S< I -3 ) /AS< 1-3) ) ) 

BS( I) = PB-CS< 1-13 /ASC I -l )* (PZ-PX*CS( I -3 ) / AS < 1-3 ) -BS < 1-2 ) / AS ( I - 2 ) *< P 
1 Y-PX*BS I I -3 ) / AS ( 1-3) )) 

DS( I ) =PD-PX / AS ( I— 3)*DS(I— 3)-DS( 1-2) /AS ( 1-2 ) * ( P Y-P X*BS ( I -3) / AS ( 1-3) 
1 )-DS( 1-1) /AS( 1-1 )*<PZ-PX*CS( 1-3) /AS (I-3)-BS( 1-2) /ASl I-2)*(PY-PX*BS 
2 ( 1-3 ) / AS ( 1-3 ) ) ) 

CS< I ) = 0 . 

SOLVE TRI-C I AGONAL MATRIX FOR P 
BP(2)=CS<2) /BS ( 2 ) 

GP(2)=DS(2)/BS(2) 

DO 3 N=3 ♦ I 

W=BS(N)-AS<N)*8P( N-l ) 

BP(N)=CS<N)/W 

GP(N)=(DS(N)-AS(N)*GP(N-1) )/W 
CONTINUE 

ZP ( I ) = DSQRT ( GP ( I ) ) 

P < I ) = ZP< I ) 

KON= I M 
DO 4 N=1 » I N 

ZP( KON)=DSCRT( GP (KCN )-BP ( KON ) *ZP( KON* 1 ) **2) 

P ( KON ) =ZP ( KCN) 

KQN=K0N~1 

RETURN 

END 


□ 37 

D 38 
D 39 
D 40 
D 41 
D 42 
D 43 
D 44 
D 45 
D 46 
D 47 
D 48 
D 49 
0 50 

D 51 
D 52 
D 53 
D 54 
D 55 
D 56 
D 57 
D 58 
D 59 
D 60 
D 61 
D 62 
0 63 

0 64 

D 65 
D 66 
D 67 
D 68 
D 69 
0 70 

D 71- 
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SUBROUTINE PDF2 ( BET Ai t BE TB2 , BE TB3 , BE TP I , TP ,F ,CP N I » DX , DX L , OT , I) E I 

SUBROUTINE FOR SOLVING FIRST ORDER LINEARIZED DIFFERENTIAL E 2 

EQUATIONS GOVERNING PYROLYSIS GAS TEMPERATURE AND FLOW RATE AND E 3 
CHAR LAYER PCRCSITY. E A 

DIMENSION B ( 50 ) * C<50), D(50), E(50), F(50), TP(50), BET 41(50)* BE E 5 
1 T B2 ( 50 ) » BET B3 ( 50 I » BETPK50), TF<50) E 6 

COMMON /DE1DE2/ B »Cf D» E E 7 

DOUBLE PRECISION B,C,D,E,TF = 8 

C CALCULATE TRI-DI AGCNAL MATRIX COEFFICIENTS E 9 

I M= I- 1 E 10 

IN=I-2 E II 

I Q= I -3 E 12 

DDX= DX 1 E 13 

B( 19)=BETB3 (19) /OT*CRNI*(-( DX**2*2.*0X l*DX) / ( DX l *0X* ( OX 1 + DX ) ) +BETA E 14 
11(19)) E 15 

C( 19)=CRNI*(DXH-DX)MDX1*DX) E 16 

E( 19)=-CRNI*DXl/( CXMDX1+DX) ) E 17 

D(19)=-BETB2( 19 ) ♦ ( BETB3( 19) ZDT-( l.-CTNI ) *( - ( DX**2 + 2 . *0 X l*DX) MDXl* E 18 
1DX* ( 0X1+DX) ) ♦6ETP1 (19) ) )*TP( 19)- ( l.-CRNI )*( DX1+DX )/ (DX1*DX )*TP( 20) E 19 
2+( l.-CRNI )*OXi/( JX*( DX1+DX) )*TP( 21) E 20 

DO 2 N=l, IN E 21 

IF (N.NE.15) GO TC 1 F 22 

DDX=DA E 23 

GO TO 2 E 24 

1 CONTINUE E 25 

B(N)=CRNI*(BETA1(N)-1.S/DDX)*-BETB3(N)/0T E 26 

C(N)=2.*CRNI/0DX E 27 

E ( N) =- • 5* CR NI /DDX E 28 

D(N)=-SETB2 (N)-( ( l.-CRNI ) *( 8ETP 1 ( N ) - 1 . 5/DDX) -BET3 3 ( N ) / DT ) *TP ( N )- ( 1 E 29 

l.-CRNI )*(2.*TP(N*1)7DDX-TP(N + 2)M2.*DDX) ) E 30 

2 CONTINUE E 31 

B< IM) = CRNI*(BETA1 ( IM )-i./DX)+BETB3( IM WDT E 32 

C ( I M ) =CRN I /DX E 33 

E(IM)=0. E 34 

D( I M)=-BETB2( IM)-( ( l .—CRN I ) *( BET P 1 ( I M )- 1 . /DX ) - BE TB 3 ( I M ) /DT ) *T P ( I M ) E 35 

1-(1.-CRNI )/DX*TP( I) E 36 
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c 


3 


SOLVE TR I -01 AGONAL MATRIX 

c 

37 

TF( I )=F ( I I 

c 

38 

TF( IM) = (D( IM)-C< IM)*TF( I ) If B( IM) 

c 

39 

F( I M ) =TF ( I M ) 

F 

40 

K0N= IN 

E 

41 

00 3 N= i » I N 

E 

42 

T F( KON I = ( 0 ( KQN )-C(K0N)*TF(K0N*-l)-E(KDN)*TF(K0N+2) )/B< KQN ) 

E 

43 

F ( KGNl =TF ( KON) 

E 

44 

K0N=K0N— I 

E 

45 

RETURN 

f— 

46 

END 

E 

4 7 - 


N> 

N> 

ON 





o o 


1 


SUBROUTINE CHCOMTIME) 

SUBROUTINE FOR CALCULATING THE CHEMICAL REACTION RATES OF EACH 
SPECIES. 

COMMON AC EP ( 12 ) » ACER ( 12) ,BCSF( 12) ,8CER( 12) , CRNI , KUPT( 40 , 12 ) , KUPTV ( 
140) * Ml 13) ,PFK(50,12) ,MNO,NNO, MU150), MUKT140, 12) ,MUKTV( 40) ,PR( 50) ,R 
2 ( 50,12) ,RHO< 50) ,RHOK (50,12) , RHOKP( 50, 12 ) , T( 50 ) ,TEMP (40 ) , NRCT , <T , RU 
3 » NSTEP* ROCPM(50),RS< 50) ,RHR( 50, 12),RHS( 50) ,DHK< 50, 12) , DHJ( 50, 12 ) ,H 
4RJSUM150) 

DIMENSION RMP(9)»RMR(9)*RJN(9) 

REAL M 
N=NSTEP 

RMR( 1)=RHCK (N, l) /M <1 ) 

RMP( 1)=1. 

RMR ( 2 ) = RHOK ( N , 1 1 )/M( 11) 

RMP <2) = RH0KIN,3) / M3 )*RHCK(N,2)/M12) 

RMR ( 3 ) =RHOK ( N , 3)/M(3 ) 

PMP( 3 ) = RH OK. ( N , 4 ) ^ M ( 4 ) * RHOK ( N , 2 ) / M ( 2 ) 

RMR t 4 ) = ( RHOK ( N , 4 ) / Ml 4))**2 
RMP ( 4 ) = 1 . 

RMRC5)=RHQMN,12)/P< 12) 

RMP ( 5 ) = 1 . 

RMR(6)=RH0K(N,9)/M(9) 

RMP 1 6 ) s 1 • 

RMR ( 7 ) = RHC K (N,6)/M16 ) 

RMP ( 7 ) = 1 . 

RMR ( a ) = RHOK (N,7)7M(7 ) 

RMP ( 8) =1 . 

RMR(9)=RH0K(N,7)/M(7) 

R MP ( 9) = 1 • 

DO 1 J= l * 9 

AKF = ACEF(J)*EXP(-8CEF(J ) f ( RU*T (N ) ) ) 

IF( J.EQ.6) AKF=AKF/T( N) 

AKK=AC£R( J)*£XP(-BCER(J)7(RU*T(N) )) 

RJN(J)= AKF*RMR ( J )-AKR*RMP( J) 

CONTINUE 

R(N,1)=-RJNU) 


F 1 
F 2 
F 3 
4 

F 5 
F 6 
F 7 
F 8 
F 9 
F 10 
F 11 
F 12 
F 13 
F 14 
F 15 
F 16 
F 17 
F 18 
F 19 
F 20 
F 21 
F 22 
F 23 
F 24 
F 25 
F 26 
F 2 7 
F 23 
F 29 
F 30 
F 31 
F 32 
F 33 
F 34 
F 35 
F 36 
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R(N, 2)=.5*RJN< 1 ) *RJN (2)+RJN( 3 )+R JN ( 4 ) * 3. *RJN ( 5 ) *R JN ( 7 ) «- 1 . 5*R JN ( 8 ) + 
1 R JN ( 9) 

R(N,3)=RJN<2)-RJN(3) 

R(N,41=RJN(3)-RJN (4) 

R<N,5)=2.*RJN(6)+RJN<7) 

R ( N» 6 ) =— R JN ( 7 ) 

R(N,7)=-RJN<8)-RJN<9) 

R(N»8)=.5*RJN( 8 )-*R JN ( 9) 

R(N f 9)=-RJM6) 

R ( N » 10 ) =R JN( 9) 

R ( N » 1 1 ) =. 5*R JN ( l )-RjN(2) 

R ( N » 1 2 ) =-R JN( 5 ) 

RS(N>=2.*RJN(4 )+6.*RJN(5) 

RHS(N)=-RJN(6)-RJN(7 )-RJN(9) 

RHR(N,6)=RJN(6i 
RHR ( N » 7 ) =R JN ( 7 ) 

RHR ( N» 9 ) = R JN( 9 ) 

RETURN 

END 


F 37 
F 38 
F 39 
F 40 
F 41 
F 42 
F 43 
F 44 
F 45 
F 46 
F 47 
F 48 
F 49 
F 50 
F 51 
F 52 
F 53 
F 54 
F 55- 
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APPENDIX D 


PROGRAM TERMINOLOGY 


A 

AB2 

AC 

ACEF 

ACER 

AEXP 

AINT 


Dummy parameter used in computing viscosity of pyrolysis 
gas 


Dummy array defined in solution of species continuity 
equation, single subscript 

Specific reaction rate constant for first order oxidation 
of char layer 

Specific reaction rate constant for forward chemical 
reaction, single subscript 

Specific reaction rate constant for reverse chemical 
reaction, single subscript 


Specific reaction rate constant for pyrolysis gas of 
uncharred material 

Single subscripted parameter defined as ^x(N) ^ 


AINT 3 


AIS 

AISCNST 

AK 

ARAL 

AKALP 

AKF 


Single subscripted parameter defined as 




dx 




Coefficient in solid temperature finite difference equation 
evaluated at the pyrolysis zone and the uncharred layer - 
insulation layer interface 


Coefficient in solid temperature finite difference 
equation evaluated at the front surface of the char layer 


Parameter defined in solution of solid temperature equation 


Parameter defined in solution of solid temperature equation 


Parameter defined in solution of solid temperature equation 

Rate of homogeneous chemical reaction in forward direction, 
single subject 
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AKP 


AKPL 


AKPLP 


AKR 


AKSL 

AKSLP 


ALFC 


ALFP 


ALPHA 


ALPHA 1 ^ 
ALPHA 2 V 
ALPHA 3 / 
ALPHA 4 J 


ALPHB3 

ALPHB4 


} 


ALPHIP1 ^ 
ALPHIP2 l 
ALPHIP3 ( 
ALPHIP4 J 

ALPHI1 ^ 
ALPHI2 V. 
ALPHI3 r 
ALPHI4 J 

ALPHP1 
ALPHP2 V 
ALPHP3 f 
ALPHP4 J 


Parameter defined in solution of solid temperature 
equation 

Parameter defined in solution of solid temperature 
equation 

Parameter defined in solution of solid temperature 
equation 

Rate of homogeneous chemical reaction in reverse 
direction, single subscript 

Parameter defined in solution of solid temperature equation 

Parameter defined in solution of solid temperature 
equation 

Weighting factor for transpiration effectiveness of char 
mass loss 

Weighting factor for transpiration effectiveness of 
pyrolysis gases 

Absorptivity of char surface 


Coefficients in linearized differential equations for solid 
temperature evaluated at end of time step, single subscript 


Coefficients in finite difference equation for solid 
temperature evaluated at mid point of time step, single 
subscript 


Values of ALPHA1, etc. for the char layer at the pyrolysis 
zone evaluated at the start of the time step 


Values of ALPHA1, etc. for the char layer at the pyrolysis 
zone evaluated at the end of the time step 


Values of ALPHA1, etc. evaluated at the start of the time 
step, single subscript 
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AL1 


AMDOT 

AMGDOT 


AMS DOT 


AMU 

AMJ 

AP 




APR 


API 

ARH 


) 


AS 


AT 


Dummy array defined in solving species continuity 
equation, single subscript 

Local mass flow rate of pyrolysis gas, single subscript 

Rate of pyrolysis of uncharred material given by rate 
equation 

Rate of char layer removed by oxidation 


Dummy parameter defined in computing pyrolysis gas viscosity 


Solution of pyrolysis gas pressure equation for previous 
iteration, single subscript 

Dummy parameter defined in computing pyrolysis gas 
Prandtl number 

Dummy arrays defined in solution of species continuity 
equation, single subscript 

"AS^coef ficient in matrix formed by second order 
differential equation, single subscript 

Pyrolysis gas temperature for previous iteration, single 
subscript 


ATS Solid temperature for previous iteration, single subscript 

AVGMF Average molecular weight of pyrolysis gas at end of time 

step, double subscript 

AVGMFP Average molecular weight of pyrolysis gas at start of 

time step, double subscript 

B "B" coefficient in matrix formed by first order equations, 

single subscript 


BC 


Activation temperature for first order oxidation of char 
layer 


BCEF Activation temperature for forward homogeneous chemical 

reaction involving gaseous species, single subject 

BCER Activation temperature for reverse homogeneous chemical 

reaction involving gaseous species, single subscript 
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BETA1 *N 
BETA2 > 
BETA3 J 

BETB2 "V 
BETB3 J 

BETPl"^ 
BETP2 > 
BETP3 J 

BEXP 

BIS 

BMGDOT 

BMSDOT 

BP 

BRH 

BS 

C 

CE 

CIS 

CPK 

CPKT 

CPKTV 


Coefficients in linearized differential equation of 
pyrolysis gas temperature evaluated at end of time step, 
single subscript 

Coefficients in finite difference equation for pyrolysis 
gas temperature evaluated at mid point of time step, 
single subscript 


Values of BETA1, etc. evaluated at the start of the time 
step, single subscript 


Activation temperature for pyrolysis of uncharred 
material 

Coefficient in solid temperature finite difference 
equation evaluated at the pyrolysis zone and the uncharred 
layer-insulation layer. 

Rate of pyrolysis of uncharred material given by energy- 
balance 

Rate of removal of char layer by sublimation 

Parameter defined in algorithm for solving set of finite 
difference equations, single subscript 

Dummy array defined in solution of species continuity 
equation, single subscript 

"BS" coefficient in matrix formed by second order 
differential equation, single subscript 

"C" coefficient in matrix formed by first order equations, 
single subscript 

Mass fraction of oxygen at edge of boundary layer 

Coefficient in solid temperature finite difference 
equation evaluated at the pyrolysis zone and the uncharred 
layer-insulation layer interface 

Heat capacity of gaseous species, double subscript 

Table of gaseous species heat capacity versus temperature, 
double subscript 

Dummy array defined for use in table-look-up routine to 
obtain CPK, single subscript 
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CPP 

CPPP 

CPPPV 

CPPT 

CPS 

CPSA11 ■> 
CPSA12 J 

CPSV 

CRN I 

CS 

D 

DDX 

DEB2 "V 
DEB 3 J 

DELI ^ 
DEL2 > 
DEL 3 J 

DEN 

DEP l'N 
DEP2 > 
DEP3 J 

DETADX 

me 

DHJ 


Heat capacity of uncharred material, single subscript 

Heat capacity of insulation layer, single subscript 

Constant heat capacity of insulation layer 

Table of uncharred material heat capacity versus 
temperature , single subscript 

Heat capacity of char layer, single subscript 
Dummy parameters defined in computing CPK 


Constant heat capacity of char layer 

Crank-Nicolson factor - 1/2 for modified implicit 
solution 

"CS" coefficient in matrix formed by second order 
differential equation, single subscript 

"D" coefficient in matrix formed by first order 
differential equations, sinble subscript 

Distance between finite difference stations 

Coefficients in finite difference equation for conservation 
of species evaluated at mid point of time step, single 
subscript 

Coefficients in linearized differential equation for 
conservation of species evaluated at end of time step, 
double subscript 

Denominator defined in solution of first order equations 

Values of DELI, etc. evaluated at start of time step, 
double subscript 


Porosity gradient in char layer, single subscript 
Heat of combustion of char layer 

Heat of reaction for heterogeneous chemical reaction, 
double subscript 
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DHK 

DHP 

DIFER 

DIS 

DKPDX 

DKSDX 

DL 

DLP 

DMBRDX 

DRHO 

DRODX 

DS 

DT 

DTDX 

DVDX 

DX 

DXP 

DXPP 


Enthalpy of chemical species evaluated at solid 
temperature, double subscript 

Heat of pyrolysis of uncharred material 

Convergence criteria 

Coefficient in solid temperature finite difference 
equation evaluated at the pyrolysis zone and the uncharred 
layer- insulation ’ aver interface 

Gradient of uncharred material thermal conductivity, 
single subscript 

Gradient of char layer thermal conductivity, single 
subscript 

Change in thickness of char layer 

Change in thickness of uncharred layer 

Gradient of pyrolysis gas molecular weight, single 
subscript 

Difference in density of uncharred material and density 
of char layer at the pyrolysis zone 

Gradient of pyrolysis gas density at end of time step, 
single subscript 

"DS" coefficient in matrix formed by second order 
differential equation, single subscript 

Time increment 

Gradient of pyrolysis gas temperature at end of time step, 
single subscript 

Gradient of pyrolysis gas velocity, single subscript 

Distance between finite difference stations in char 
layer in region of course grid spacing 

Distance between finite difference stations in uncharred 
layer in region of course grid spacing 

Distance between finite difference stations in 
insulation layer 
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DXP1 


DX1 


E 


EIS 


EPSA1 
EPSA2 > 
EPS A3 ) 


EPSB2 *\ 
EPSB3 J 


EPSP 


EPSPl^ 
EPSP2 > 
EPSP3 ) 

EPSS 

ETA 


ETAP 


F 


FIS 


FS 


GAMIPP1 ^ 
GAHIPP2 V 
GAMIPP3 ( 
GAMIPP4 ) 


Distance between finite difference stations in uncharred 
layer in region of the fine grid spacing 

Distance between finite difference stations in char 
layer in region of fine grid spacing 

"E" coefficient in matrix formed by first order equations, 
single subscript 

Coefficient in solid temperature finite difference equation 
evaluated at the pyrolysis zone and the uncharred layer - 
insulation layer interface 


Coefficients in linearized differential equation for char 
layer porosity evaluated at end of time step, single 
subscript 

Coefficients in finite difference equation for char 
layer porosity evaluated at mid point of time step, 
single subscript 

Emissivity of radiating heat sink surface behind 
insulation 

Values of EPSA1, etc. evaluated at the start of the 
time step, single subscript 


Emissivity of char layer surface 

Porosity of char layer at end of time step, single 
subscript 

Porosity of char layer at start of time step, single 
subscript 

Dummy array defined in solution of first order 
differential equations, single subscript 

Coefficient in solid temperature finite difference 
equation evaluated at the pyrolysis zone and the 
uncharred layer insulation layer interface 

Dummy array defined in solution of solid temperature 
equations, single subscript 

Values of AIPHA1, etc. for the uncharred material at the 
uncharred layer-insulation layer interface evaluated at 
the start of the time step 
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GAMIP1 ^ 
GAMIP2 l 
GAHIP3 f 
GAMIP4 ) 

Values of ALPHA1, etc. for the uncharred material at 
uncharred layer-insulation layer interface evaluated 
the end of the time step 

the 

at 

GAMMI1 > \ 
GAMMI2 V 
GAMMI3 / 
GAMHI4 J 

Values of ALPHA1, etc. for the uncharred material at 
pyrolysis zone evaluated at the end of the time step 

the 

GIS 

Coefficient in solid temperature finite difference 
equation evaluated at the pyrolysis zone and the uncharred 
layer-insulation layer interface 

GP 

Parameter defined in algorithm for solving set of finite 
difference equations, single subscript 

GSCNST 

Coefficient in solid temperature finite difference 
equation evaluated at the front surface of the char 
layer 


HA 

Coefficient of convective heat transfer between char 
layer and pyrolysis gas, single subscript 

HBRKN2 

Enthalpy of N 2 at char surface temperature evaluated 
end of time step 

at 

HBRK02 

Enthalpy of O 2 at char surface temperature evaluated 
end of time step 

at 

HC 

Heat of sublimation of char layer material 


HE 

Enthalpy of free stream 


HK 

Enthalpy of gaseous species, double subscript 


HKT 

Table of gaseous species enthalpy versus temperature, 
double subscript 


HKTV 

Dummy array defined for use in table look-up routine 
single subscript 

for 

HRJSUM \ 
HRSUM J 

Parameters defined in computing coeffcients in pyrolysis 
gas temperature equation, single subscript 

HS 

Enthalpy of char layer evaluated at the char temperature, 
single subscript 
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HSA11 \ 
HSA12 J 

HSCNST 

HST 

HSTT 

HTSK 

HTSKP 

HW 

I 

IL 

IM ^ 

IN 

IN 2 ) 
10 

101 J 

IP 

IPP 
IP1 J 

IZ 

IZ1\ 

J J 

JK 

K 


Dummy parameters defined in computing HK 

Coefficient in solid temperature finite difference 
equation evaluated at the front surface of the char 
layer 

Enthalpy of char layer evaluated at the pyrolysis gas 
temperature, single subscript 

Table of char layer enthalpy versus temperature, single 
subscript 

Value of pC l for heat sink at uncharred layer- insulation 
layer interface 

Value of pC^& for heat sink behind insulation layer 
Enthalpy of air at char surface temperature 
Number of finite difference stations in the char layer 
Thickness of insulation layer 

Indices 

Total number of finite difference stations in char 
layer and uncharred material 

Indices 

Total number of finite difference stations in char layer, 
uncharred material, and insulation layer 

Dummy indices 

Number of finite difference stations in uncharred material 


KA 


Dummy index 

Parameter defined in computing rate of char layer removal 
by first order oxidation 
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KAPT.PPl"^ Value of ALPHA1, etc. for the insulation layer at the 
KAPIPP2 l uncharred layer- insulation layer interface evaluated at 
KAPIPP3 r the start of the time step 
KAPIPP4 ) 

KAPIP1 ^ Value of ALPHA1, etc. for the insulation layer at the 

KAPIP2 V uncharred layer- insulation layer interface evaluated at 
KAPIP3 / the end of the time step 
KAPIP4 J 

KG Conductivity of the pyrolysis gas 

KGK Conductivity of gaseous species, single subscript 

KI A 

KM / Dummy indices 

KON J 


KP Conductivity of un char red material at end of time step, 

single subscript 

KPP Conductivity of insulation layer, single subscript 

KPPI Conductivity of uncharred material at pyrolysis zone 

evaluated at start of time step 

KPPIP Conductivity of uncharred material at uncharred layer - 

insulation layer interface evaluated at start of time 
step 

KPPPIP Conductivity of insulation layer at uncharred layer- 

insulation layer interface evaluated at start of time step 

KPPPIZ Conductivity of insulation layer at back of insulation 

evaluated at start of time step 

KPPV Data input for insulation layer conductivity 

KPT Table of uncharred material conductivity versus 

temperature, single subscript 

KS Conductivity of char layer at end of time step, single 

subscript 

KSPI Conductivity of char layer at pyrolysis zone evaluated 

at start of time step 

KSPI Conductivity of char layer at front surface evaluated at 

start of time step 
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KST 

KT 

KTT 

KUPT 

KUPTV 

L 

LAM 

LP 

LPMIN 

LPP 

LPPP 

M 

MCPP 

MFK 

MFKI 

MGDOT 

MGDOTP 

MKP 

MKS 

MNO 

MPDOT 


Table of char layer conductivity versus temperature, 
single subscript 

Indices 

Table of gaseous species conductivity versus temperature, 
double subscript 

Dummy array defined for use in table-look-up routine for 
KGK, single subscript 

Char layer thickness at end of time step 

Ratio of mass char layer removed to free stream oxygen 
consumed in first order oxidation of char 

Uncharred material thickness at end of time step 

Minimum thickness of uncharred layer 

Char layer thickness at start of time step 

Uncharred material thickness at start of time step 

Molecular weight of chemical species, single subscript 

Order of interpolation in obtaining CPP 

Mole fraction of gaseous species, double subscript 

Mole fraction of gaseous species at pyrolysis zone, 
single subscript 

Rate of pyrolysis of uncharred material at end of time 
step 

Rate of pyrolysis of uncharred material at start of time 
step 

Order of interpolation in obtaining KP 

Order of interpolation in obtaining KS 

Order of interpolation in obtaining HS, HST, HK, CPK, 
HBRKN2 , HBRNK02 , MUK, and KGK 

Effective mass injection rate at char surface 
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MQC 

MS 

MS DOT 

MSDOTP 

MSQPT 

MU 

MUK 

MUKT 

MUKTV 

N 

NCPP 

NIT 

NITA 

NITC 

NITG 

NITP 

NITS 

NKP 

NKS 

NNO 

NQC 


Order of interpolation in obtaining QC 
Molecular weight of carbon 

Rate of chat layer removal by first order oxidation at 
end of time step 

Rate of char layer removal by first order oxidation at 
start of time step 

Order of interpolation in obtaining SQPT 

Viscosity of pyrolysis gas mixture, single subscript 

Viscosity of gaseous species, single subscript 

Table of gaseous species viscosity versus temperature, 
double subscript 

Dummy array defined in computing pyrolysis gas viscosity, 
single subscript 

Dummy index 

Number of entries in CPPT table 
Iteration count 

Trigger, set to 1 after first iteration following m = 
1.0 x 10“ 3 kg/m^ -sec ® 

Trigger, set to 1 after first iteration 

Trigger, set to 1 if surface temperature changes more 
than .2% with respect to previous times 

3 2 

Trigger, set to 1 when m = 1.0 x 10” kg/m -sec 

S 

Trigger used in computing CPK and HK 
Number of entries in KPT 
Number of entries in KST 

Number of entries in HSTT, HKT, CPKT, MUKT, and KUPT 
Number of entries in QCTAB 
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NRCT 

NRHOK 


NSQPT 

U 

NSTEP 

P 


PA 


PAB3 

PAB4 


PALI ’ 
PAL2 
PAL3 
PAL4 

PAMGDOT 


PAP1 
PAP 2 
PAP3 
PAP4 

PART 

PB 


PD 


PHBRKN2 


PHBRK02 


PHI 


Number of homogeneous chemical reactions treated 

Trigger used in solving species continuity equation, 
single subscript 

Number of entries in SQPT 

Dummy index 

Pyrolysis gas pressure at end of time step, single 
subscript 

"PA" coefficient in finite difference equation for 
pyrolysis gas pressure evaluated at the pyrolysis zone 

Coefficients in finite difference equation for pyrolysis 
gas pressure evaluated at mid-point of time step, single 
subscript 

Coefficients in linearized differential for pyrolysis 
gas pressure evaluated at end of time step, single 
subscript 


Product of chemical species density and velocity at 
start of time step, double subscript 

Value of PALI, etc. evaluated at the start of the time 
step, single subscript 


Parameter defined by |TS(1)-TSP(1) ] 

"PB" coefficient in finite difference equation for 
pyrolysis gas pressure evaluated at the pyrolysis zone 

"PD" coefficient in finite difference equation for 
pyrolysis gas pressure evaluated at the pyrolysis zone 

Enthalpy of N 2 at char surface temperature evaluated at 
start of time step 

Enthalpy of C >2 at char surface temperature evaluated at 
start of time step 

Parameter defined in computing viscosity of pyrolysis 
gas, double subscript 
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PM Permeability of char layer at end of time step, single 

subscript 

PMU Pyrolysis gas viscosity at pyrolysis zone, evaluated at 

start of time step 

PMV Data input for permeability of char layer 

PP Pyrolysis gas pressure at start of time step, single 

subscript 

PPM Permeability of char layer at pyrolysis zone, evaluated at 

start of time step 

PR Prandt number of pyrolysis gas 

PRHO Pyrolysis gas density at start of time step, single 

subscript 

PRINT FQ Time interval at which output is printed 

PROM Sum of mole density of all chemical species, single 

subscript 

PROPC Proportionality constant appearing in equation for HA 

PSI Parameter defined in computing conductivity of pyrolysis 

gas, double subscript 

PT Pyrolysis gas temperature at last table look up of data, 

single subscript 

PTIME Print time 

PTS Solid temperature at last table-look-up data, single 

subscript 

PW Dimensionless pressure at surface of char layer 

PWP Dimensional pressure at surface of char layer 

PX "PX" , etc. coefficients in finite difference equation for 

PY pyrolysis gas pressure evaluated the pyrolysis zone 

PZ 

Q Net heat transfer at char surface by conduction at end of 

time step 
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QC 

QCOND 

QCT 

QCTAB 

QFAC 

QNET 

QPNET 

QPT 

QRAT 

QRS 

RAD 

RHO 

RHOK 

RHOKP 

RHOP 

RHOPP 

RHOPPV 

RHOSO 

RHOST 

RHR 


Heat transfer to cold, non-ablating body 

Rate of energy transfer by conduction at char layer surface 

Aerodynamic heat transfer to hot, ablating body 

Table of QC versus time, single subscript 

Parameter define in computation of aerodynamic heat 
transfer 

Heat transfer to back surface of insulation layer at end 
of time step 

Heat transfer to back surface of insulation layer at start 
of time step 

Net heat transfer at char surface by conduction at start 
of time step 

Ratio of set heat transfer at surface by conduction to 
cold wall, non-ablating heat transfer 

Radiant heat transfer at surface 

Vehicle nose radius 

Pyrolysis gas density at end of time step, single subscript 

Density of chemical species at end of time step, double 
subscript 

Density of chemical species at start of time step, double 
subscript 

Density of uncharred layer at end of time step, single 
subscript 

Density of insulation layer, single subscript 
Data input for insulation density 
Density of char layer at front surface 
Theoretical density of char layer 

Rate of function of chemical species by heterogeneous 
chemical reactions, double subscript 
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RHS 

RJN 

RM 

RMP 

RMR 

ROCPM 

ROHM 

ROM 

RS 

RT 

RU 

S 

SGMA 

SP 

SPECIES 

SQPT 

T 

TCPP 

TEMP 

TF 


Rate of formation of solid by heterogeneous chemical 
reactions, single subscript 

Rate of reaction of chemical reaction, single subscript 

Total mass rate of production, single subscript 

v" 

Parameter defined by tt (p./M. ) i , single subscript 

1 v' 

Parameter defined by tt (p./M, ) i , single subscript 

i 1 1 


Parameter defined by Z P^Cp./M^ , single subscript 

Parameter defined by Z , single subscript 

Total mole density of pyrolysis gas, single subscript 

Hole rate of production of solid carbon at end of time 
step, single subscript 

Mole rate of production of chemical species, double 
subscript 

Universal gas constant 

Trigger for surface removal mechanism 

Stephan-Boltzmann constant 

Trigger for selecting mode of calcualtion of pyrolysis 
rate of uncharred layer 

Identification of gaseous species, single subscript 

1/2 

Table of (PW) versus time, single subscript 

Pyrolysis gas temperature at end of time step, single 
subscript 

Temperature table for CPPT, single subscript 

Temperature table for HSTT, HKT, CPKT, MUKT, and KUPT, 
single subscript 

Pyrolysis gas temperature in double precision, single 
subscript 
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TFS 

TIBAR 

TIME 

TIMET 

TKP 

TKS 

TMPRES 

TP 

TRAB 

TREF 

TS 

TSAVE 

TSP 

T1BAR 

V 

VC 

W 

ws 

X 

XI s 
XP 


Solid temperature in double precision, single subscript 

Maximum temperature at pyrolysis zone 

Time from start of program 

Time table for QCTAB, single subscript 

Temperature table for KPT, single subscript 

Temperature table for KST, single subscript 

Time table for SQPT, single subscript 

Pyrolysis gas temperature at start of time step, single 
subscript 

Trigger for selecting blocking approximation 
Transpiration effectiveness 

Solid temperature at end of time step, single subscript 
Parameter used in calculating DHK 

Solid temperature at start of time step, single subscript 
Sublimation temperature of char layer 

Average velocity of gas in char layer, single subscript 

Velocity of moring coordinate, single subscript 

Parameter defined in algorithm for solving finite difference 
equations for pyrolysis gas pressure 

Parameter defined in algorithm for solving finite 
difference equations for solid temperature 

Dimensionless char layer coordinate 

Coefficient in solid temperature finite difference equation 
at the pyrolysis zone and the uncharred layer insulation 
layer interface 

Dimensionless coordinate in uncharred layer 
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XSCNST Coefficient in solid temperature finite difference 

equation evaluated at the back surface of the insulation 
layer 

YETA Time derivative of char layer porosity, single subscript 

YIS Coefficient in solid temperature finite difference 

equation evaluated at the pyrolysis zone and the uncharred 
layer-insulation layer interface 

YP Time derivative of pyrolysis gas pressure, single sub- 

script 

YRHO Time derivative of pyrolysis gas density, single 

subscript 

YRHOK Time derivative of gaseous chemical species density, 

double subscript 

YSCNST Coefficient in solid temperature finite difference 

equation evaluated at the back surface of the insulation 
layer 

YT Time derivative of pyrolysis gas temperature, single 

subscript 

YTS Time derivative of solid temperature, single subscript 

ZIS Coefficient in solid temperature finite difference 

equation evaluated at the pyrolysis zone and the 
uncharred layer insulation layer interface 

ZP Pyrolysis gas pressure in double precision, single 

subscript 

ZSCNST Coefficient in solid temperature finite difference 

equation evaluated at the back surface of the insulation 
layer 
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